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A few completed versions of the full user guide are also in circulation. It is 
540 pages in length, so you had better check that your letter box is big enough. The 
guide is not yet available in large numbers. This should not take too long however, 
though obviously "late May" was a somewhat optimistic prediction from Acorn. Anyway 
it should make a nice Christmas present. 


BL on Bs | 

wnen we talked to Hermann Hauser at the Computer Fair early in April, he told us 
that model As ordered on March 31st should be despatched within 6 weeks, while 
model Bs should be despatched within 10 weeks. The situation for As has improved 
significantly beyond this, to the extent that they are now ex-stock (just). But they 
got it all wrong with the model B predictions - and not for reasons of component 
failure. People who ordered on March 31st have been given delivery dates of about 
5 months hence; and there is unfortunately now a backlog of around 11,000 model B 
orders. Ideally they should be being fulfilled at around 1000 per week, but 
production has not reached this figure for a long time (if ever). Production however 
is apparently moving towards this mark, and Acorn hopes to eliminate the backlog by 
1st September. By that time, they hope, a third manufacturer (in wales) will have 
just begun to supply machines, so adding considerable capacity. 


- Some machines are currently in production abroad, but contrary to rumours, these 
appear to have been destined solely for the foreign market. Cleartone's takeover has 
apparently not affected production (Cleartone produce model As only); though a 
strike at ICL recently caused a two-week delay in testing model Bs. 


Model Bs currently being despatched appear to be from those ordered in December 
and January. If you have straightforward model B orders from before December that 
are unfulfilled, it might be worthwhile contacting Acorn about this. j 


Beeb_Bugs 
After some negotiation, we have secured the release of a fix for two important 


bugs in the cassette filing system affecting data and program storage. See the 
contents list for "BBC BUGS" article. 


"Acorn User" 

The long promised Acorn user magazine is out, and no one can say that it isn't 
glossy. If you have read the User Group release on BEEBUG you may be a bit confused, 
since they printed with it the name of our press officer, rather than that of David 
Graham, who actually wrote the article. 


STOP PRESS | 
We have just heard that the fee for the new 1.0 ROM if your machine is already 


fitted with the 0.1 ROM (rather than the EPROM), will be £10! 


HINTS HINTS HINTS . HINTS HINTS 


OSBYTE INKEY 


If you are programming in machine code, you don't want to enter Basic every time 
you read the keyboard. You can avoid this (even on 0.S. 0.1) by calling OSBYTE 129. 
The call address of all OSBYTE calls is &FFF4 (indirected through &020A). 


| The routine waits for a character from the currently selected input channel 
until either a character is detected or a given time limit expires. On entry A must 
contain &81, and X and Y should contain the time limit in centiseconds (Y hi-byte, 
X lo-byte). On exit X contains read character. C=0 indicates the character is valid. 


C=1 indicates that an error condition has arisen, A determines the type of error). 
Y=&FF on exit indicates a timeout condition. 


we are grateful to Acorn/BBC for permission to give details of this OSBYTE call. 
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This program produces different PATCHWORK patterns depending on the values for 
width and height that you enter. Provided that 'width' and ‘height’ are not simple 
multiples of one another, the patterns will continue to change for a long time. You 
can freeze the screen by pressing the 'space' bar. Pressing 'S' twice in succession 
allows you to start again. 

This program uses ‘exclusive or! plotting. You will be interested to see that it 
displays 5 colours all at the same time in mode 5, when mode 5 is only supposed to 
show 4 colours. 

The program originated from a member - John Yale of wimborne, Dorset, who wrote 


it originally for the RML 380Z microcomputer. | Sel, 

1 REM PATCHWORK 260 VDU 29,(1279-width%)/2;(1023-=heig 
2 REM by — ht%)/2:; a = hi 
3 REM Sheridan williams 205 VDU 24,0;0;widthd;neight?; 
4 REM from an idea by 270 = XN%S=2* width : YN%=2*height% 
5 REM John Yale 280 X%=width% DIV 2:Y%=height% DIV 2 
6 REM-————————— 290 xince%=1:yines=2 

15 gaph=8 300 MOVE X%,Y% 

“17 mode=5 ) 305 at š 

=R TIME 310 X%Z=X%Z+xine 有 
200 ee 320 GCOL 3,1:DRAW X%,Y% f 
230 INPUT"Screen `width (100-1279) ", 330 IF X%>width% THEN X%=X%-width% :MO 
width% VE 0,Y%:DRAw X%,Y%:GOTO 330 


232 IF width%<1 width%Z=RND(900)+379 
235 PRINT'"Best effects are obtained 
by making the height not an easy multip 

le of the width" 

238 PRINT TAB(8,15)"Press 'space' to 

freeze" 

239 PRINT TAB(5,17)"or press 'S' tw 
ice to start again." 

240 INPUT TAB(0,5)"Screen height (100 
-1023) ",height% 


340 IF X%<0 THEN X%=X%+width%:MOVE wi 
dth% ,Y%:DRAW X%,Y%:GOTO 340 

350 xincé=-xinc%-gap+*SGN(xinc%) 

360 IF ABS(xinc%)>XN% THEN xincé=xinc 
%=SGN(xinc% ) *XN% 

370 Yó=Y%+yinc% 

380 GCOL 3,2:DkAw X%,Y% 

390 IF Y%>height% THEN Y%=Y%4-heignt?: 
MOVE X%,0:DRAW X%,Y%:GOTO 390 

400 IF Y%<0 THEN Y%=Y%+height%:MOVE X 


245 IF height%<1 height%=RND(900)+123 
250 MODE mode 


% neight%:DRAW X%,Y%:GOTO 400 
410 yincf=-yinc%-gap+*SGN(yincó) 


251 VDU 19,0,4,0,0,0 420 IF ABS(yinc%)>YN% THEN yinc%=yinc 

252 VDU 19,1,1,0,0,0 %=SGN(yinc%)*YNZ : 

253 VDU 19,2,3,0,0,0 430 UNTIL INKEY$(0)<>" | 

254 VDU 19,3,7,0,0,0 HHO IF CHR$(GET AND 223)="S" THEN 20 
9 ELSE 505 


HINTS 


HINTS 


Mr R. Q. McMinn of Birmingham says: 

I find that when looking through a long program that pressing CONTRKOL-SHIFT 
allows stepping through the listing. 'Escape’ then allows you to stop for 
alterations. 

LThat really is useful, 
micro - Ed.] 


HINTS HINTS 


we've been trying to do that ever since we got our 


Here's a quick reminder from me (S.W.): 
If you want to enter strings with quotes (") and commas (,) ete in them you can't 
use INPUT, but you can use INPUTLINE. For example: 

INPUTLINE"First line of your address" ,address1$ 


Another tip is that you can include in the INPUT statement much of what you can do 
in the PRINT statement, for example: É 


10 INPUT TAB(10,10)"1st Number",N1,TAB(20,20)"2nd Number" ,N2 
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Putting the 10 user defined function keys (or "softkeys") on the BBC machine was 
a good idea, and so was providing a removable transparent plastic cover under which 
you can slide notes relating to the keys. There is a wealth of applications to which 
these can be put. Our mini text editor featured last month provided some examples of 
possible uses. Here we will take a closer look, dealing first with the syntax, and 
working towards a variety of applications. | 


Syntax | 

The provisional user guide p196 gives details of the key set command. Eg if you 
enter *KEY O "WORD", this will cause the word. WORD to appear every time that key f 
is pressed. The guide does not say that you can leave out the quotations, and thig 
has the advantage that you can actually print a quotation mark on the sereen. 
ie *KEY 0 " will cause a quote to appear on the screen when f. is pressed. If you 
are using quotes to open and close the command, you can actually get quotation marks 
printed simply by doubling up on the number that you need. Thus *KEY "PRINT""”X""" 
will print PRINT"X" when you press Lo: 


The provisional guide tells you how to get a key to execute a 'return' - ie by 
inserting |M. Thus *KEY 0 LIST¡M will cause a listing each time key fa is pressed. 
Tne | character is produced by shifting the key to the left of the cursor control 
key. It has the same effect as if you pressed the 'CTRL' key during normal input. 
You may have already discovered that CTRL M (ie press CTRL and M at the same time) 
causes a return. There are other equally useful CTRL functions, such as CTRL L to 
clear the screen, or CTRL V followed by a number between 08€ T will give a mode 
change. Thus *KEY 7 iV7 provides an economical way of getting fo to produce mode 7. 
(See the P.U.G. p188 for other control characters.) Note incidentally the 
relationship between the control letters and the VDU or CHR$ calls to achieve the 
same function - To take an example, VDU 10, or PRINT CHk$10 cause the cursor to move 
down one line. The control code for this is J (the 10th letter of the alphabet). 


Keys 10 to 15 

As we suggested last month, soft key 10 is actually the 'BREAK' key, and this 
can be programmed in the same way. You cannot stop it doing its resetting function 
as far as we know, but you can make it do what you like after that. Eg *KEY 10 OLD¡M 
would prevent accidental loss of programs. Note though, that if you hit the break 
key twice in succession with the right interval between presses you will get a 
'beep', the screen will display the memory size and it will do a semi-cold start 
erasing all set keys. 


In operating system 1.0 you can use the 5 editing keys as soft-keys after typing 
*FX4,2. This is not possible on OS 0.1 (though it looks from the specification 
sheets as if it was). On OS 0.1 you can however use *FX4,1 to allow the editing 
keys to be read with INKEY$() etc. Their values are COPY=&87, LEFT=&88, RIGHT=&89 ， 
DOWN=k8A，UP=&8B， 


The soft key buffer (an area of memory from &0B00 to &OBFF) is (as this 
suggests!) 256 bytes wide, and this would appear to be shared amongst the 10 keys. 
This means that you can define key 0 with a string of a little over 200 characters 
if you want to, but there will be very little room left for any of the other keys, 
and when you try to define them, you will get a "Bad key" report. Unfortunately this 
also occurs if you try to redefine a soft key when the buffer is almost full. 
Because of this, if you are putting key definitions into a program that nearly fill 
the soft key buffer, then you should precede them with a clear key command. (eg 
KEY O clears key 0), otherwise you will get a "Bad key" error the second time that 


are the program. We are told that this minor bug has been taken care of in 
OS 1.0. 
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Because of the reasonably generous buffer allocation, each key may contain a 
number of commands in immediate mode separated by colons or return characters, so as 
to have the effect of a complete program. Eg: 

*KEY O INPUT A:FOK B=1 TO 10:P.APB:NEXT!M 
Pressing key f. causes an input to be requested, ana when this is entered (with a 
return) the 10 powers are printed. A more useful sequence is the following: 
f #KEY O DIM P%-1:P.HIMEM-P%!M 
This prints out the total remaining memory, taking variable storage into account 
(and can be used to see ifa program that runs on a model B will also run on a 
model À - at least 16381 bytes should be unused if this is the case). 


A series of FX calls can conveniently be put into a key buffer, provided they 
are separated by a 'return' character rather than a colon - this can be useful for 
setting the serial interface for a printer - eg *KEY O *FX5,2/M*FX8,4/M 


Quite a few members have written in to say that they always run a short program 
before using their machines, so as to initialise the soft keys. You can either type 
NEW to erase the program after running it, or else you can leave it as the first few 
lines of any program that you develop (assuming that the program that you are 
developing doesn't use the softkeys for other purposes.) The following is a list of 
some of the functions that members have assigned to the softkeys: 

RUN, RENUMBER, LIST, MODE 7, OLD, NEW, PRINT TIME, initialise TIME to clock time, 
*MOTOK, *MOTOR O, PRINT remaining memory. 

We have used some of these in the key setting routine below. we have not 
included TIME setting or reading routines since many programs use the TIME function 
in ways that upset its use as a time of day clock. we have also avoided NEW since we 
felt that programs could be too easily lost with inadvertant use of this, followed 
by a Basic line entry etc. *MOTOR has not been used, but *CAT usefully turns on the 
cassette motor, while the 'escape' key will switch it off. Key f gives a printout 
of memory remaining (when variables are taken into account). Keys ü 5 and 6 are left 
undefined. Key 7 changes to Mode 7. Key 8 gives a printer listing of a program using 
LISTO 7, after printout LISTO O is activated, since as you have probably noticed, 
When you use the 'copy' key in editing you create ragged edges if the listing that ` 
you edit from was performed under LISTO management. Key 9 performs Mode 7 then LIST,- 
while key 10 executes OLD after 'Break', because of a bug you should avoid pressing 
the 'Break' key so programmed, when there is no program in the machine. Finally, as 
an aid to memory you may find it is useful to slip a piece of paper under the 
perspex strip above the keyboard with the key functions written on it. 


Acknowledgements - Thanks are due to Brian Carrol, Chris Bingley, Peter kaper and 


others for their ideas on the softkeys, some of which have been POS s 
E.G. 


this article. 
90 REM BEEBUG KEY SET ROUTINE 180 *KEY 8 LISTO7iMiBL. {M}CLISTOO!M 
100 *KEY O RUN!M 190 *KEY 9 ¡V7¡NL.¡M¡O 
110 *KEY 1 ¥CAT!M 200 *KEY 10 OLDIM 
120 *KEY 2 CHAIN" Im 210 MODE7:PRINTTAB(O,10) "FUNCTION K 
130 *KEY 3 DIM P%-1:P.HIMEM-=P% !M EYS ARE SET-PRESS ANY" 
140 #KEY H 220 PRINT"KEY TO CLEAR PROG" 
150 #KEY 5 230 wait=GET 
160 *KEY 6 240 NEw 
170 *KEY 7 ¡V7 


HINTS HINTS HINTS HINTS HINTS 
SPEED HINT 
Richard Harris tells us that *FX 16,0 turns off the Model B A/D converter 
interrupt system, and slightly speeds up processing (though I would not have thought 
that there could be much gained here ed.). He also Suggests that a subroutine at the 
beginning of a program is faster than a procedure, but that a subroutine at the end 
of a long program is slower. It does not appear to make any difference where the 
procedure is in the program. 
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TELETEXT 


To judge from members comments there is a great deal of interest in the Teletext 
mode - mode 7 - on the Beeb. It offers the full 8 colours even on a model A, it has 
a very readable character set, and it is reasonably rewarding to explore given a 
colour monitor or TV. 

we present here two articles on the 'Teletext mode'. The first is accompanied by 
a very useful illustrative program sections of which are referred to at many points 
during the article. The program is listed at the end of this article. The second 
article is intenaed to cover some of the points not fully covered in the full user 
guide, and assumes that you have this to hand, or at least have read the first 
article. 

May we thank the very many people who have written in with detaiis of the 
teletext mode. 


MODE 7 and the Teletext facilities PART 1 
by Graham Greatrix 


In MODE 7 tne display characters are supplied from a Teletext character 
generator KOM. The characters can be displayed normal height, double height, 
flashing, non-flasning, and with any foreground and any background colour. The 
characters include upper case, lower case, and a set of graphics characters based on 
a slot 2 pixels wide by 3 pixels high. (See the following article). Each new line of 
the display is assumed to be alphanumeric, normal height, white characters on a 
black background, unless accompanied by a combination of control codes which alter 
these conditions. The following table summarises these codes: 


Dec Hex Letter Effect Dec Hex Letter Effect 

129 381 A Alpha Red 145 91 Q Graphics ked 

130 82 B Alpha Green 146 92 R Graphics Green 

131 83 C Alpha Yellow 147 93 S5 Graphics Yellow 
132 84 D Alpha Blue 148 94 T Graphics Blue 

133 85 E Alpha Magenta 149 95 U Graphics Magenta 
134 86 F Alpha Cyan 150 96 V Graphics Cyan 

135 87 G Alpha white 151 97 wW Graphics white 

136 88 H Flash On 152 98 X Conceal Display 
137 89 I Flash Off 153 99 Y Contiguous Graphics 
138 8A J End box 154 9A Z Separated Graphics 
139 8B K Start box 15: SBS erei UNUSEG aos 
140 8C L Normal Height 156 9C Black Background 
141 8D M Double Height 157 9D J New Background 

142 8E ...unused.... 158 9E 4 Hold Graphics 

143 OF ...unused.... 159 OF = Release Graphics | 


The column headed 'Letter' will be referred to in the final part of this set of 
articles. Some examples will illustrate the use of these codes. If we wish to print 
BEEBUG in yellow letters on a blue background, we would require a statement like 
this: 
50 PRINT CAr$132;CHK$157;CHR$131;"  BEEBUG" 
kefer to the table to see what each code does. A code will apply to the whole of a 
line unless changed by a succeeding code - hence the blue background extending 
across the screen. when a new line is reached the control codes cease to apply and 
need inserting again. 
Now let's print BBC MICROCOMPUTER in yellow double-height letters with MICRO 
flashing, all on a blue background. This would be accomplished by: 
70 PRINT SPC4;CHK£$132 ,CHR$ 157 ; CHR$ 1313 CHS 141; "BBC"; CHR$ 136 ; "MICRO"; CHS 1375 
"COMPUTER  ";CHR$156 
80 PRINT SPCA;CHR$132 ,CHR$ 157 ; CHR$ 131; CHR$141; "BBC"; CHR$ 1365 "MICRO"; CHh$ 137; 
"COMPUTEK ` ";CHK$150 
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Line 70 prints the top half of the letters, and line 80 prints the bottom half. 
After running the program notice the space between "BBC" and "MICRO" and also 
between "MICRO" and "COMPUTER". These are actually occupied by the control codes for 
"flash on' and ‘flash off* respectively. In text, it is nearly always possible to 
insert control codes where spaces would normally occur. | 

The- graphics characters can be seen in green by running lines 100 to 150 of the 
program listed at the end of this article. 


Try inserting the code for separated graphics into the two PRINT statements. 
Separated graphics are used to reduce the intensity of the display producing a 
different effect. The graphics characters provide a screen resolution of 80 pixels 
across by 75 pixels deep. Codes 35, 95 and 96 are not in their usual order, and a 
Slot with all six pixels illuminated is code 255. 


The graphics characters cover the range 32 to 127 decimal, and the alphanumeric 
characters cover the same range. Try this: 
180 PRINT"0123abcd";CHR$1515"0123abcd" 
and also 
190 PRINT" ABCDEFGH" ; CHR$ 151; "ABCDEFGH" 

The upper case characters are the same even when preceded by a graphics control 
code. 

The spaces occupied by control codes could be very inconvenient in any complex 
multicoloured graphics picture. CHR$158 can be used to avoid these spaces by 
overwriting them with repeats of the previous character. For example, if we require 
a band of colour consisting of five yellow slots followed immediately by five blue 
slots, we could use: 

220 PRINT CHR$147;STRING$(5 ,CHR$255) ;CHR$ 148 s STRING$ (5 , CHR$255 ) 
but notice how the blue control code causes the appearance of an unwanted Space. Now 
try: 
250 PRINT CHR$ 147 ; STRING$(3,CHR$255) ; CHR$ 158 ; CHR$ 148 ; STRING$ (5 , CHR$255) 

This time the display is what was required. There are two control codes between the 
Strings, and their spaces have been overwritten by a repeat of the third yellow 
graphics slot, this is the reason for reducing the length of the yellow string from 
five to three slots. Finally try lines 270 to 310 of the program listed below. 


You can copy graphics characters into PRINT statements. The copy cursor will 
collect up hidden control codes as well as the visible characters. Programs can be 
modified, and saved, with their PRINT statements in full colour, and completely 
uncluttered by all those CHk$ codes. 

Now is the time to experiment. Have a closer look at the CEEFAX, ORACLE and 
PRESTEL displays for a few ideas. It's hard work, but very rewarding. 

S Teletext Part 2 


by Colin Bignell 


Graphics characters 

The full user guide informs us that each of the six cells in the teletext 
graphics character contributes a certain number to the ASCII value of a character 
code, but in the galley proofs that we have seen, it omits to give the values 
concerned. These are fundamentally as in the diagram opposite. You just add up the 
numbers in the cells that you require, and add 32 to this, giving the 
character number. Thus the shape qj is produced by character number 
2+4+8+64+32=110. And thus the command PRINT CHR$145;CHR$110 will print the 
Shape in red. There are unfortunately a few exceptions to this, as you can 
see from running lines 100 to 150 of the program listed above. These are most 
notably 35, which is actually generated by code 96; 96 generated by 95; and 127 
generated by code 255. : 


Using the graphics codes given will yield continuous graphic characters. It is, 
however, possible to separate the characters into discrete cells (with a thin 
background line dividing them), by using the code 154 (&9A) after any of the graphic 
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colour control codes. For example: | | 

| - PRINT CHR$&97 ; CHR$255 ; CHR$ 154; CHR$255 | 
will show a solid rectangle and six discrete cells for CHR$255 in the first and 
second positions respectively. 


In the parts of the full manual that we have seen, several special codes are 
given, but only one code is given to stop a special effect before the end of a line. 
In fact, control code 156 (&9C) will cancel code 137 and restore the coloured 
background. to black; and control code 140 will cancel code 141 and restore 
single-neight characters. In the latter case, however, it is not apparently possible. 
to print on the lower of the two lines used by the double height letters. Try the 
following: 

10 PRINT CHR$141; "TEST 1 ";CHR$140;"TEST 2" 
20 PRINT CHK$141;"TEST 1 ";CHR$140; "TEST 3" 
Only TEST 1 will appear in double height; TEST 2 will be single height. 


There is one further control code available 152 (&98). This has the effect of 
suppressing any further printing following it, and can be used to write hidden 
messages for games or quizzes. To cancel the code, either overwrite it with a space, 
or follow it with one of the alphanumeric colour codes, eg: 

Type: PRINT TAB(O,12);CHR$152;" TEST" : 
now either PRINT TAB(O,12);" " or PRINT TAB(1, 12) ;CHR$&87 
will restore the message TEST. In the latter case PRINT TAB(1,12);" " will hide it 
again. This code will only operate for a black background. On a coloured background, 
it is only necessary to omit the second text colour instruction to hide a message, 
and insert the correct colour control code to reveal it. kg: l 
| PRINT TAB(O, 14) ;CHkK$157; "TEST" 
will give a hidden message and 
PRINT TAB( 1,14) ;CHR$&81 
will reveal it in red. 


The softkeys can be programmed to produce mode 7 teletext graphics and control 
characters directly; they act like normal keys once programmed. Thus the CHR$ and 
VDU statements are not needed. The control characters can be typed in directly from 
the softkeys. These control characters can be used, within the quotes of any PRINT 
or INPUT statement. The format is:  *KEY5|!| letter Thus *KEY5¡!¡S will produce 
"Graphics Yellow" whenever feis pressed. The letter to be substituted is listed in 
the table in "Teletext Part 1". | | 
A mode 7 listing created in this way contains coloured PRINT statements! It is also 
possible to COPY a coloured teletext line into a PRINT statement. | 


"MICRO"; CHR$ (137) ; "COMPUTER "> CHR$( 


10 CLS:PRINT'***" MODE 7 AND THE 156) 
TELETEXT FACILITIES"!!! 90 A=GET:PRINT | | 
20 PRINT " At each stage, p 100 FOR I= 32 TO 63 STEP 7:FOR J=0 
ress" TO 6 | l 
30 PRINT " SPACE BAR to con 110 PRINT;1I+J;CHR$(146) ¿CHR$(I+J) 3" 
tinue." "sCHR$( 135); | 
40 A=GET:PRINT:PRINT 120 NEXT+PRINT:NEXT | 
50 PRINT CHR$( 132) ;CHK$( 157) ; CHRS( 130 FOR I= 92 TO 127 STEP 6:FOR J=0 
131);"  BEEBUG" ~ TO 5 | 
60 A=GET:PRINT 140 PRINT; 1+J;CHR$(146) ; CHR$(I+J) ;C 
70 PRINT" We CHR$( 132) ; CHR$( 157) HR$( 135); 
° CHA$( 131) 3CHRS( 141) ; "BBC"; CHR$( 136) ; 150 NEXT:PRINT: PRINT: NEXT 
"MICRO"; CHR$(137)3;"COMPUTER — ";CHR$( 160 PRINT 
156) | 170 A=GET:PRINT 
see | O 180 PRINT"0123abed" ; CHR$( 151) 3"0123 
; CHRS( 13 h ; i 
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190 A=GET:PRINT 55)); CHES (158) CHR (18); , STRING$(5 ,¢ CH 
200 PRINT" ABCDEFGH" ; CHR$( 151) ; "ABCD R$ (255) ) 


EFGH" 260 A=GET:PRINT 
210 A=GET: PRINT 270 PRINT CHR$(147)"7s3s3s3s35" 
220 PRINT CHR$( 147) ;STRING$(5 , CHR$( 280 PRINT CHR$( 147) "- ,5<$<$ 551 
255) ) ;CHR$( 148) ; ; STRINGS(5, CHR$(255)) 290 PRINT CHR$(147)" 8ag1sq815n 
230 A=GET;PRINT 300 PRINT CHR$(147)" j 551,,%" 
240 PRINT 340 PRINT CHR$(147)" mei gen 
250 g ani kas a O oa 320 A=GET:PRINT 


The following hints, including this RS sort function was sent in by Pete 


Cockerell of Leigh-On-Sea, Essex 


To 


recursion, it is probable that it will run out of stack space on large strings. 
then ae would not use it for PE ae anyay 


1000 DEF FNsort(A$) 
1010 IF LEN(A$)<2 THEN. =A$ 
ELSE =FNinsert(LEFT$(A$,1) FNsort(MID$(A$,2))) 

1020 DEF FNinsert(X$ ,Y$) 
1030 IF Y$="" THEN =X$ 
1040 LOCAL T$ 
1050 T$=LEFT$(Y$, 1) 
1060 IF X$<=T$ THEN =X$+Y$ 

ELSE =T$+FNinsert(X$,MID$(Y$ ,2) ) 


test if it works try PRINT FNsort("DCAB") Because this demonstrates mutual 
But 


Official BBC Stockists 
Model A to Model B upgrade Kit £65.00 
16K RAM 8 X 4816AP-3 100nS £21.60 
FULL RANGE OF CONNECTORS AVAILABLE EX-STOCK 


PRINTERS MONITORS 
SEIKOSHA GP100A £189.00 | 14” BMC Colour 18M Hz Bandwidth 
EPSON MX80F/T3 £360.00 | RGBinput £240 


0.00 + fs Carriage 
NEC PC8023 £375.00 SANYO Computer Grade Cassette 
(Carriage £8 per printer) Recorder £24.50 
PLEASE SEND FOR OUR &8C LEAFLET FOR FULL DETAILS ` | 
We also stock a large range of CPUs, Memories, TTLs, CMOS & Connectors 


Please add 40p P&P and 15% VAT to the order value 


17 Burnley Road, [London NW10 1ED. Tel. 01- 452 1500/450 6597 
_ Retail Shops: 15 Burnley Road, NW10. 305 Edgware Road, W2 
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STUCTURING PAR 


REPEAT. . .UNTIL 


This can be used as an alternative to the FOk loop. The FOk loop suffers from 
the main disadvantage that we often use it when we do not know how many times it 
will loop; for instance when searching an array serially for a particular value. 
when we find the value in question we jump out of the loop. Jumping out of FOk loops 
is bad programming practice because it still leaves the loop active, with all the 
associated values on the stack; it is annoying to have to stop the loop artificially 
by setting the loop variable to its final value. For example, one way to terminate a 
FORK loop properly is to proceed as follows. Suppose we wish to exit a loop when Y=10 
then we would write: 

10 FOr X=1 TO 100 40 section of program 

20 section of program 50 NEXT X 

30 IF Y=10 then X=100:GOTO 50 


It is artificial to have to set the value of X to the final value of the loop so 
instead we need a AEPEAT...UNTIL structure. Example: Suppose we want to search an 
array sequentially for the value 123. 


UNSTRUCTURED STRUCTURED 
100 FOR X%=1 TO 1000 100 X=0 
110 IF A(X%)=123 THEN 140 110 REPEAT: X=X+1 
120 NEXT X% 130 IF X>1000 THEN PKkINT"Not found":STOP 
130 PKINT"Not found":STOP = 140 UNTIL A(X)=123 
140 rest of program 150 rest of program 


WARNING - KEPEAT loops execute considerably more slowly than FOR loops in BBC Basic, 
so when speed is paramount you may have to disregard the REPEAT structure and use 
FOK loops. 

See the BOMBEK program in the last issue for an example of a program with very few 
GOTOs. 

BBC Basic goes some of the way to enabling you to write structured programs. 
Some of the features missing are WHILE loops, a BEGIN...END block structure, CASE 
statements, and the ability to define your own variable types in addition to real, 
Integer (%), and string ($). 

A member wrote in saying that you can always simulate a CASE statement as 
follows: 

hO vaiue=3 

50 case1=100:case2=200 : case 3= 322: case4=780 

60 ON value GOTO case1,case2,case3,case4 | 
In this example line 60 would then GOTO line 322. My advice is DON'T use this 
approach, because although BBC Basic will accept a variable in a GOTO statement, 
these GOTOs will not be renumbered when you renumber your program. It will be very 
difficult to sort this out if you forget. 

The KEPEAT...UNTIL loop has the drawback that it is always executed at least 
once; this is because the condition for exit is placed at the end of the loop. A 
WHILE loop, on the other hand has the condition placed at the beginning, and need 
not be executed at all. It is a shame that the WHILE loop has not been implemented 
as it is slightly more useful in my view than the REPEAT loop. | 


An example of a program with a WHILE loop is the following, which uses kEuclid's 
algorithm for finding 'highest common factors': 

10 INPUT"First factor" ,N1,"Secona factor" ,N2 

20 REPEAT 

30 WHILE N1>N2: N1=N1-N2: ENDWHILE 

YO WHILE N2>N1: N2=N2-N1: ENDWHILE 

50 UNTIL Ni=N2 

60 PKINT"H.C.F. = ";N1 
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Defined Functions 


when you want a procedure to produce a value, it is advisable to use a defined 

function rather than a procedure. As I said last montn, BBC Basic won't allow output 
parameters in procedures, and this restricts their use. For example you cannot write 
a general procedure to swap the contents of any two variables, eg: 

10 2=11 

20 b=76 

30 PkOCswap(a,b) 

HO PKINI a,b this should print 76 11 but doesn't. 
Here is a defined function using Euclid's algorithm (mentioned earlier) that returns 
the ‘highest common factor’. 


10 INPUT"First factor",N1,"Secona factor" ,N2 1020 IF x>y THEN x=x-y 


20 PRINT"H.C.F. is ";FNhcf(N1,N2) . 1030 IF y>x THEN y=y-x 
30 END 1040 UNTIL x=y 
1000 DEF FNhef(x,y) 1050 =x 


1010 KEPEAT 
Line 1050 may look weird, but it assigns the value x to the function, and instructs 
the function to return to the calling program. It may be easier if I define a 
non-mathematical function (ie a String function). here is a function that returns a 
string with all the trailing spaces stripped off: 


10 INPUTLINE" Enter something with 1000 DEF FNstrip(string$) 

= spaces at the end", before$ 1010 string$=string$+CHR$32 

20 PRINT"It was>";before$;'<" 1020 KEPEAT 

30 after$=FNstrip(before$) 1030 string$=LEFT(string$,LEN(string$)-1) 
HO PHINT"It's now>";after$;"<" 1040 UNTIL KIGHT$(string$,1)<>CHk$32 

50 END 1050 =string$ 

60 EM 


Line 1010 is annoyingly necessary because the KEPEAT loop always executes once 
before it tests. 


Hecursion 
This topic is too long to consider in this article, so i will cover it ina 
future article. However it is relevant here because it allows us to define functions 
very easily in some cases. For instance we can code our HCF function as: 
DEF FNhef(x,y) 
LOCAL r 
IF x<y THEN =FNhcf(y,x) 
r=x MOD y 
IF rz0 THEN =y ELSE =FNhef(y,r) 
Here the function calls itself. Functions that call themselves are called recursive 
functions. [There is rather a neat pair of functions that are mutually recursive in 
the "hints and tips" elsewhere in this issue] | 
As a comparison between two functions, one defined recursively and one not, I 
have chosen one that is easy to understand. It will find the sum of the elements of 
an array A(1) to A(n): | 


Non-kecursive hecursive 
DEF FNsum(n) DEF FNsum(n) 
LOCAL sum IF n=1 THEN =A(1) ELSE =A(n)+FNsum(n-1) 


FOR iZ=1 TO n 
sum=sum+A(i%) 

NEXT i% 

| =sum 

Summary 
A problem should be reduced into sections, each section worked on separately ana 

incorporated into a procedure or function. Each procedure may use other procedures. 
The master program should be short enough to perceive as a whole, say 40 lines 

at a maximum, and there should be readily at hand a chart showing ali the procedures 

used and their inter-dependency. 
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As few GOTOs as possible should be used. And always use meaningful variable 
names. 
BOOK | 
I have been notified Chat a book entitled "Struetured Programming on the BBC 
microcomputer" written by Koy Atherton, and published by Ellis Horwood will appear 
in a few month's time. BEEBUG has asked for a pre-publication review copy, so that a 
review should coincide with its release. A book on structured programming by Roy 
Atherton should be very good. roy has long been a proponent of structured 
Progaming and with ae reason. S.W. 


HINTS HINTS HINTS HINTS HINTS 


n. benitez of Ealing, London sent us a routine to read a character from anywhere on 
the screen, unfortunately we published one last month, but he also says: 

All the 6845 registers can be accessed using the format: 

to read 74 FEOO=register number : byte=?&FE01 

to write 74 FE0O=register number : 7&FEO1l=byte 


PnINTEK CONTROL CHARACTERS 

we are grateful to Archie Ewing for bringing this to our attention. If you try 
to send printer control characters embedded in text to be printed, the printer will 
ignore them, as some members have found. The solution is hidden away in the VDU 
calls in the Provisional User Guide. The way to send control characters is to use 
VDU 1. That is to say, suppose that you want to send a line feed character 
(ASCII 10), you just execute VDU 1,10. To send two line feeds, use VDU 1,10,1,10. 
Incidentally, this call is effective whether or not the printer happens to be 
activated with a VDU 2 (or a CTRL B). 


ELECTRONICS APPLIED, | 
| 4, DROMORE ROAD, | 
| CARRICKFERGUS, Co. ANTRIM BT38 7PJ 

| Please add 55p order P&P 


LEN AY GAJIELIES! DELUX LEADS. 
Ve can supply three anes a —  — 5 


(1) Computer to 5 Pin DIN. dos 95 o manual overide of motor 


(2) Computer to two 35mm pi and | con rol al lows you 
one 25mm plug (most common). i : 


(3) Computer to three 35mm plugs. — re wi nd + f. f. etc 


th “fire”/“serve” button 
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SOFTWARE REVIEM 


This month we start what we hope will be a regular series of reviews. If members 
have: bought any other items of software that they would like to review, please send 
the review to the editorial address, marking the envelope "Software heview". Please 
try and stick to a similar format for the review. Please note that the reviews are 
entirely personal, and BEEBUG cannot be held responsible for views of the reviewers. 
SPACE WARP Supplied by: Bug-Byte Cost: £11.50 

Hardware requirements: 32k Model A or B 
Reviewer: Rob Pickering 


The Space Warp package comes as a cassette with 14 page booklet, and a slip of 
paper to place under the perspex strip to remind you of the softkey functions. 

I was glad, at first, to discover that the cassette was recorded at 1200 baud. 
However, I soon changed my mind when it took 45 minutes before I could get it to 
run, because I had such severe loading problems. The cassette contains more than one 
program, the first program loads the second. In the manual it states that it is so 
complicated to load, that it is too complicated for them to tell you how to make a 
back-up copy, So with the loading problems I only played the game about six times. 

Once running, the helpful user manual seems to tell you everything you would 
expect to find in a science fiction novel, but nothing clear enough about the 
objectives of the game, and how to play it. I read things over and over again, but 
still couldn't seem to get far. wondering if my computing experience was clouding my 
vision, I got some total beginners to try it on their own. They came to the same 
overall conclusion. It leaves the user frustrated, because it is virtually ‘teach 
yourself”, 

In conclusion, SPACE WARP is probably a good game, a sort of STARTREK type game 
played in real-time, with sound effects and visual movement. Unfortunately I could 
not get a good idea of how good it is in just a few days. This is a good point for 
two reasons, either you will put it in a cupboard and ignore it forever with 
frustration, or you will find it worth perservering. If it is this difficult to 
learn, then it could be worth perservering as it may means that once learned it 
won't be too trivial. 

BEEBGAMMON Supplied by:Bug-Byte Cost: £8 
Hardware requirements: 32k Model A or B 
Reviewer: Sheridan williams 

I could not get the 1200 baud copy to load. That makes two out of three of 
Bug-Byte's cassettes that were difficult to load. (This one and "Space-warp" just 
reviewed). Perhaps they ought to sort out their recording problems. 

This program came with an A5 card outlining how to play, but it didn't tell you 
that there was a 300 baud copy on the unlabelled side. I only found that when I got 
desperate. 

There are three skill levels, and the game is "you versus the computer". There 
is no facility for two people to play each other. It plays reasonably well at its 
best level, but I didn't play a long enough series to tell if it was luck or my 
skill. | 


SOLE Supplied by: Bug-Byte, 98-100 The Albany, Old Hall Street, Liverpool L3 

Cost: £7 

Hardware requirements: 32k Model A or B 

Reviewer: Sheridan williams 

A golf simulation game. The green colour is a bit dazzling, and you need to turn 
down the set's brightness. Allows one or two players. Fairly good graphics, showing 
aerial view of each of the fairways. Once you are on the green this converts to a 
worm's eye view. The game is fun to play, but I was disturbed by the number of times 
I holed out from over 200 yards; maybe I shouldn't be looking after BEEBUG but be on 
a golf circuit instead. You can select a range of clubs, and the type of hit. 
SNAKE Supplied by: Computer Concepts, 16 wayside, Chipperfield, 
j - Herts, WD4 9JJ. Tel: 09277 62955 Cost: £6.67 
Hardware requirements: 32k Model A or B Reviewer: Pauline Henderson 
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On the cassette there were copies of the program at both speeds, and there was 
no problem with loading at all. 

The game itself is really fun, and very, very addictive. You must imagine that 
you are the head of a snake, you move around the board, using the left and right 
cursor keys, gobbling up red blobs. For each red one you eat you gain one point, one 
segment of body is added to your length, and a mauve blob appears somewhere on the 
screen. If you gobble a mauve blob you get two points, two segments added, and a 
green square appears. If you hit an edge or a green square you get killed. 
Occasionally a white blob appears, this gets you bonus points for the speed at which 
you can reach it to gobble it up. The 'Death March’ is played when you die, and 
although fun at first, it becomes dreadfully boring waiting while it finishes. 

It is very exciting because eventually you are perhaps 100 segments in length, 
and hence your body trails around the screen. If you collide with yourself 
then ‘death’. You have two other controls, the *shift' key which speeds up your 
motion, and the 'space' bar which fires a laser destroying any obstacle in its path 
within 5 squares. Once you have gobbled up everything that you can, the game pauses 
before displaying page 2, which is a new layout, I reached page 3, but I presume 
that there are more. It can be played on a B&W set as the blobs are all slightly 
different in shape. 

Very addictive, not to be played with a few beers inside you. Easy to get your 
left and rights muddled when travelling down the screen. Really excellent game. 
SNAPPEK Supplied by: AcornSoft Cost: £9.96 

Hardware requirements: 32k Model B (needs 6522) 
Keviewer: Sheridan williams 

This is a direct copy of the pub-type game "Puckman". The object is to negotiate 
a course gobbling up dots. You are being chased by ghost-like shapes which you have 
to evade otherwise they get you. In order to be able to kill them you must get to a 
blob and gobble that, once this blob is eaten the ghosts turn blue, and can now be 
eaten. Once eaten their eyes live and return to their breeding ground for 
regeneration. 

This really is a superb game graphically and conceptually. I enjoyed playing it 
very much. ¡That's why this magazine is late! DEG. | 
DISASSEMBLE Supplied by:Program Power Cost: £5.95 (special offer) 

Hardware requirements: 16k Model A 
Keviewer: Sheridan williams 

Another review program with no documentation. It prompts you for several inputs, 
but does not make it clear whether they are in decimal or hex. There is no mention 
of where you can place the appropriate *FX calls if you have a serial printer, so 
you have to enter them directly. For some unfathomable reason the program stops 
after each run, and has to be restarted with 'RUN'. 

The program works, although I did not have time to check all the disassembled 
codes. Rather Expensive at nearly £6. 

MUNCHYMAN Supplied by:Program Power Cost: £5.95 (special offer) 
Hardware requirements: 16k Model A 
Reviewer: Sheridan williams 

This is a poor relation to Acornsoft's "Snapper", however it does run in 16k. It 
is fun to play, but what a shame it does not have auto repeat on the keys. I do wish 
there was a standard set of keys for movement on the screen. The standard cursor 
keys are OK for left and right, but for up and down they are a pain. Why didn't 
Acorn/BBC design a proper directional cursor pad? Can I suggest that left right are 
always either the appropriate cursor keys, or that they are the 'Z' and 'X' keys. 
For up and down I would suggest the ":" for up, and the "/" for down. 

GOMOKU Supplied by:Program Power Cost: £2.95 (special offer) 
Hardware requirements: 16k Model A 
Reviewer: Sheridan williams 


Gomoku has always been one of my favourite board games. The object is trivially 
simple - get five crosses in a row in any direction before your oppanent. For a 
game with such simple rules it is amazing how much thought is required to win. This 
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š plays quite well, and I would class it as good value for money at the price 
above. 
It is not an addictive pub-type game but can provide some Stimulating thought. 
ELDORADO Supplied by:Program Power Cost: £8.00 
Hardware requirements: 32k Model A or B 
Reviewer: Sheridan williams 
This is based on the "Adventure" principle. Your mission is stated below, copiea 
exactly as it appears on the screen: 
"You are in the county of Eldorado where cowboys are common and 
Indians terroise (sic) the settlers. 
Gold prospectors are common and there is one particular man: 
Billy McCusky who is said to have made his fortune where many before 
have failed. After his unfortunate death a Legend has grown about the 
whereabouts of his hidden treasure. 
will you be the one to find his hidden treasure ?? 
- When you have found as much treasure as you can, go to the Hotel 
and type SCORE." 
You have to give commands like "TAKE LAMP" or "KILL DONKEY". By using such commands 
you can explore and hopefully find the treasure. 
Another quite fun game that can be recommended. 


O ERKEERAAAERAREEEKMEMBERS CORNER Hit i tet ede oe ek 

M. w. Ashby, 7 Linton kd, Oxford writes: 

I have an easy (no components) modification to tne "Bush Kanger" (Chassis BM6514 or 
BM6714) Béw portable that turns it into a very high quality video monitor. Anyone 
wanting details should write to me. 


Chris Melville, 1 whinway, Albany Village, washington, Tyne and wear NE37 1AU 
(Tel: 0632 462306) asks us to broadcast his interest in using the BBC micro as a 
basis for a music keyboard controlied synthesiser. He says that he has the 6502 
programming capability but is looking for someone to help nim on the hardware side. 


C.J.Morris of DJB Engineering Ltd, Peterlee, County Durham, Sk8 2HX says we wish to 
become involved in the emulation of VDU terminals that we currently use, and use of 
the Econet for interconnection of users. If you can help please contact me. 


LITERATURE SURVEY USEFUL ARTICLES 


A great deal has been written in the various computing magazines about the Beeb. 
Some of it, but by no means all of it, has been useful material. we have brought 
together what we consider to be the best of the bunch, and present it here in the 
first of what we hope will be a regular feature of our newsletter. 


Personal Computer world 
Jan 1982 BBC Micro benchtest (review) by Chris Sadler and Sue Eisenbach (5 pages) 
Jul 1982 Sound Advice by Mark Holmes (2 pages)(On SOUND & ENVELOPE) 
Mapping out the BEEBON by David Christensen (5 pages) 
(Many useful operating system addresses.) 


Electronics & Computing 
Interfacing the BBC Micro, series may, June, July, by Paul Beverley. 


Computing Today 
Jul 1982 BBC programming by Mike James, useful for screen mapping. (4 pages) 


L.A.Dunkling says that he would be grateful for a mention of his professional 
interest in language-teaching programs. Writers of such programs might care to 
contact me via - BBC English by Radio and Television, PO Box 76, Bush House, London, 
WC2B 4PH. | is 
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USER PORT PART 2 


| we continue the article on upgrading and use of the user port, with details of 
pushbutton and joystick data entry, and with notes on data output. 


Push Button Input 

The circuit in fig 1 below shows a set of H switches or push buttons wired as 
games paddles or control buttons for the user port. The 4 resistors take the 4 data 
lines PB7-PB4 to the +5v rail - on line one of the ribbon cable - (this takes them 
'high' more reliably than the internal circuitry of the 6522). The switches are each 
arranged to take one data line to 'low' when pressed or activated. The 4 buttons 
could be mounted on a small box and used in games and other programs as games 
paddles (switches with levers and centre-off would be best in this case, when a 
single pole double throw switch could earth either PB7 or PB6 say, or neither). 
Fig 2 shows the connection for this, and fig 3 shows how to connect up a standard 
joystick for digital (rather than analogue) control through the port. 


what is now required is a program to sort out which keys have been pressed (or 
in which direction the joystick lever points) - and the particularly useful point 
about all this is that any number of keys (up to 8) can be pressed and acted upon 
simultaneously - which of course is not the case with the keyboard - pressing two 
keys at once has a disabling effect. The accompanying program achieves this key or 
switch detection. It initialises the port to "input" in line 130, and the main body 
of the program is found within the KEPEAT..UNTIL loop at line 135. This calls two 
procedures, one that reads 6522 register zero (which is the data register for port 
B), and assigns TKUE or FALSE to the variables UP®, DOWN%, LEFT% and RIGHTS 
depending on the value read in. The second procedure, PROCCURSPOSN moves a cursor in 
response to the position of the four switches or paddles or joystick connected to 
PB7-PB4 of the user port as in fig 1. Line 1004, which reads the data at the port, 
subtracts it from 255 in order to render it more usable. This is done since as 
things stand, when the 'up' button is pressed the port will read 128 LESS than it 
did without it being pressed. Subtracting the port value from 255 reverses the 
effect causing the value of PADDLE to increase by 128 when the 'up' is detected, 
which is more convenient. Once the assignments of TRUE or FALSE have been made, the 
procedure PROCCURSPOSN is used to update the position of the cursor, and draw a 
solid block at the relevant place. As it stands the previous position is not erased, 
so the effect is to draw solid lines across the screen under paddle or joystick 
control. You will notice that if you press LEFT and DOWN simultaneously you will 
automatically get a diagonal line, since the program responds to each switch quite 
independently. | 


The program is meant only to demonstrate a way to incorporate responses to the 
port into a program, and obviously similar routines can be used in many different 
implementations. If you require a quicker response, then it will be best to 
incorporate the two procedures together so that if an 'UP* is detected, the cursor 
is immediately moved upwards, or at least the cursor control variables X% and Y% are 
immediately altered correspondingly. 


Data Output 


Data output is easily achieved on all 8 bits of the user port, by setting the 
data direction register to 255, and then setting data register B to the value to be 
output, which again can be any integer value between O and 255. If you have a high 
impedence voltmeter (such as a digital voltmeter) you can immediately see the effect 
of this. Join the voltmeter between pin 20 of the user port, and earth (say pin 19). 
Kun the 6522 handler program given last month, and put 255 into register 2 of the 
6522, then alternately place zero, then 255 into register 0. This will cause the 
voltage on pin 20 (ie PB7) to go from around 0.1 volts, to around 5 volts, and this 


programmable control voltage can be used to make the computer control various 
devices. | 
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Each of the 8 output lines can be individually controlled using data generated 
by the table opposite. If for example, you wish to send an output (ie set the 
voltage high) on lines PB7 and PBO, then you just send the value 129(=128+1) to the 
data register B of the 6522 (ie register 0). This is easily accomplished using the 
6522 handler program, or by executing ?&FE60-129 (See notes on PEEK and POKE in 
issue 2). Again, since the total of all individual values is 255, sending 255 to 
register 0, will make all 8 output lines go high. 

To use these voltages to control external devices you need to buffer, to protect 
and amplify, the signal. The most straightforward way to do this is to use an I.C. 
such as a 74LS17 which will amplify 6 lines Simultaneously, producing a current 
large enough to drive a relay from each line. we give connections to the 74LS17 in 
fig 4. In this case PB7 and PB6 each drive a relay, while PB5 and PB4 light LED 
indicator lamps. Any relay will do providing it operates from around 10 volts, and 
requires no more than 30mA to drive it. As may be seen from the diagram, you will 
need either a separate power supply or battery for this set up to drive the relays. 
The relay contacts may then be used to switch whatever you require, but take care 
not to exceed the ratings of the relay contacts, and do NOT contemplate switching 


mains voltages unless you are fully experienced in this area. 
Switching Software 


We now require some software to perform the switching. The procedure 

PROCportoutput achieves this: 

DEF PROCportoutput 

?&FE62=255 

PR FEGO=ABS(pb7*128+pb6*64+pb5* 32+pb4* 16+pb3*8+pb2*4+pb1*2+pb0) 

ENDPROC 
Set the variables pb7 to pb0 to zero at the start of the program, then during the 
program set any of these to 1 (or TRUE) that are required to be switched on, then 
call the procedure. To turn any bit off subsequently, set the appropriate variable 
(ie pb7 to pb0) to 0 or to FALSE. 


Mixed Output and Input 

The data sent to the data direction register at &FE62 is, in fact made up in the 
Same way as the port output data, with a 1 setting a given bit of the port to 
output, and a zero to input. Thus if you wanted to use bits 0 to 3 for output, and 4 
to 7 for input, the value 15 (=1+2+4+8) sent to register two of the 6522 will 
achieve this. 


Conclusion 

As we suggested earlier, there is a great deal more that the 6522 will do, 
including timing and counting, and the provision of programmable control lines. we 
do not, at present, have time to cover this, and we would refer you to manuals on 
the 6522, or to books such as L. Scanlon "6502 Software Design" which contains a 


section on the 6522. D.E.G. 
100 REM DRAWING WITH A PADDLE ROUTINE 1020 IF PADDLE% AND 128 THEN UP%=TRUE 
105 ri: 1030 IF PADDLE% AND 64 THEN DOWN%=TRUE 
E Oc 1040 IF PADDLE% AND 32 THEN LEFT%=TRUE 

1050 IF PADDLE =TRU 
ia I 50 % AND 16 THEN RIGHT%=TRU 
135 REPEAT 1060 ENDPROC 
ie PROCPADPOSN 1500 DEF PROCCURSPOSN 
ica aoe Di 1510 IF Y%Z>0 AND UP% THEN Y%=Y%-1 
Lees $(0)<> 1520 IF Y%<30 AND DOWN% THEN Y%=Y%+1 

1530 IF X%>0 AND LEFT% THENX%=X%-1 


210 END 
| 1540 IF X%<38 AND RIGHT% THEN X%=X%+1 
1000 DEF PROCPADPOSN 1545 PRINTTAB(X%,Y%)SPC1 


1004 PADDLEY=255-(3&FE60) 0 
1010 UPA=FALSE:DOWNS=FALSE:LEFTS=FALSE 1560 mNDPHOC (XA, Y2) CHR$255 


:RIGHTY=FALSE 2000 DEF 
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23 255， 205, 255, 1255, 255, 255, 255 2020 VDU23,0,113030;03 
2010 yoo | 2030 ENDPROC 
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HINTS HINTS HINTS _ HINTS HINTS 


FREE MEMORY 
There is no single command in BBC Basic to print the amount of memory remaining 


such as the variants on FRE(X) to be found in many micros. But the same effect can 
be achieved by Eng following sequence: 


DIM P% -1: PRINT HIMEM-P% 
This gives the amount of memory remaining after variable storage has been taken into 


account. This line has been ancorporaved into the key setting program given 
elsewhere in this issue. 
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| _ RANGE OF DISK DRIVE SUBSYSTEMS 
FOR THE BBC MICRO. | 


BARE DRIVES FROM ONLY £ 105.00 
IN PLASTIC ENCLOSURES £ 135.00 
DUAL UNITS WITH OWN P.S.U. £ 295.00 


INCLUDES 12 MONTHS WARRANTY ON CASED SUBSYSTEMS 


EPSON PRINTERS 


EPSON MX80T/2 £ 295.00 
EPSON MX80FT/2 £ 325.00 
EPSON MX100 £ 495.00 


Full range of printers carried in stock. Come and see 
us for a free demonstration. 


PRICES DO NOT INCLUDE POSTAGE AND PACKING OR VAT. 
MICROWARE (LONDON ) LTD. 637 HOLLOWAY RD. LONDON N19. 


PHONE 01 272 6398 FOR FURTHER DETAILS. 


-PRICES DOWN — 
BBC MICRO UPGRADE KITS BBC CONNECTORS 


BBCi 8 x4816 100ns (IC61-68) BBC 21 Connectors for printer 
25.50 compiete 13.00 

BBC 2 Printer & User I/O Kit BBC 22 Connector for user port 

IC69, 70 + PL9,10 8.45 with 36” cable 2.15 
BBC 4 Analogue Input Kit BBC 44 Analogue input plug with 

IC73,77 + SK6 6.75 cover 2. 
BBC5 Serial l/O & RGB kit BBC 55 5 pin & 6 pin DIN plugs for 

1C74,75 + SK3,4 11.45 Serial I/O & RGB input 0.99 


BBC6 Expansion bus & tube kit BBC 66 Connector for bus port with 
1C71,72,76 + PL11,12 6.25 36” cable 3.50 


NB As some of the components in these kits are in very short supply, please check 
for PENVEN S Hale when ? ordering. 


24 HOUR TELEPHONE SERVICE FOR CREDIT CARD USERS 
* All prices exclude VAT and Carriage (0.75 + VAT) on orders under £10 ve 
* All orders despatched on day of receipt with full refund on O/S items if requested x 
x Order receipted & returned with goods. If full VAT invoice required please add 0.50 + VAT xy 


TIVE COMPONENTS (MAIL « ) 
Hewitt House, Northgate Street, Bury St. Edmunds, Suffolk IP33 
Telephone: (0284) 701 321 Telex: 817670 
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BBC BUGS FIX 


we publish here an explanation and a fix for the two major bugs in the Beeb's 
cassette filing system. These affect data storage, and also occasionally render 
saved programs unreadable. we would stress that we have seized the earliest 
opportunity to publish this fix, which is in current use at the BBC, but which has 
not yet been fully tested and approved by Acorn. we thought that you would like to 
see it as soon as possible. This article is reprinted by permission, from "ESCAPE", 
the newsletter of the BBC Engineering Society, Home Computing Section. We are most 
grateful both to the author, and to "ESCAPE" for their permission to publish. 


The Cassette Filing System in the BBC Microcomputer (Operating 
System version 0.10) has a couple of rather unfortunate “bugs” 
which at best cause annoyance and at worst prevent the use of 
cassette data files in certain circumstances. 


The bugs are as follows: 


1. Occasional corruption of the first character of a "block" 
written to tape. As this first character is the “sync” byte 
(20 hex) by which the block is recognised, the result is that 
the block cannot be found when an attempt is made to read it 
back. This usually gives rise to a "Block?" error message. 
Nothing can easily be done to recover such a corrupted block. 


In the case of a SAVEd program, the problem generally 
afflicts only the first block (block 0), subsequent blocks 
being recorded properly. However y this effectively makes the 
entire program unreadable as loading is not initiated until 
block O is found. The corruption occurs on a pseudo-random 
basis and sufficiently infrequently lone in sixteen times on 
average) that saving a program twice generally gives at least 
one good copy. 


in the case of data files things are rather worse. Every 
block is equally likely to be affected so the chance of 
recording an error-free file is in inverse proportion to its 
length. Other factors can conspire to make even a relatively 
short file almost impossible to record without missing 
blocks. 


This bug occurs only at 1200 baud, not at 300 baud. 


2. Loss of characters when a string is written to a cassette 
data file with the PRINT# statement. This occurs if a data 
“block" is filled at a critical point in writing out a string 
(to be precise, after the string marker and length bytes have 
been sent but before the characters comprising the string 
have been sent). The result is that the characters of the 
string are lost and on reading back the file (using INPUTS) a 
"Type mismatch" error will generally be issued. . 


The extent of the problem depends on the number of strings in 

a file and the overall length of the file. The more strings — 
there are and the longer the file, the greater the chance 

that the fault will occur. A file consisting of many short 

strings is the worst case. 


This bug will not occur if the data file is only one block 
long, and affects only strings written with PRINT. 
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It is recognised that although both the above bugs are avoidable 
by suitable techniques (such as running at 300 baud and writing 
strings with BPUT#) they may impose unacceptable restrictions on 
the use of the computer. Therefore some effort has been 
expended in devising a software patch to correct them. The 
following program is the results 


100 REM PATCH TO FIX TWO CFS BUGS 200 .FIX2 CMP #&91:BNE GO:CPX #0:BN 
110 REM IN OS EPROM 0.10 E GO 
120 REM (C) R.T.RUSSELL, 8-5-82 210 TSX:LDA &102,X:CMP #&F7:BEQ TR 
130 FORPASS=0TO1:P%=&DD0:GOSUB180:N AP 

EXT 220 LDX #0:.TX LDA #&91:STA &FE09: 
140 ?&218=FIX1:?&219=FIX1 DIV 256 RTS 
150 ?&20A=FIX2:?&20B=FIX2 DIV 256 230 .GO JMP (&DB60) 
160 *KEY10 ?&218=&D0 :?&219=&D: ?&20A 240 . TRAP PLA:PLA 

=&D6 : ?&20B=&D|M 250 JSR &F9D8:JSR &FB7B 
170 END 260 JSR TX:JMP &F7FB 
180 [OPT PASS*2 270 ] RETURN 


190 .FIX1 PHA:JSR £F521:PLA:RTS 


This program should be CHAINed each time the computer is 
switched on and after every "full" reset (pressing the BREAK key 
twice). KEY 10 is set up so that a single press of BREAK will 
not disable the patch (always assuming that you do not 
subsequently reprogram KEY 10 yourself). Once run, the above 
program itself is no longer required: it has loaded a machine- 
code patch into memory locations DDO to DFE (hex). These 
locations are normallv unused by BASIC or the Operating System. 


The above program inevitably makes absolute references to 
routines within the Operating System and will work only with 0S 
version 0.10 (EPROM or ROM). It will NOT work with other 
versions of the Operating System (it will cause the system to 
crash) so should always be loaded separately rather than be 
included in other programs. 


There is one further, less serious, known bug in the CFS which 
is worth mentioning. The effect of this is that the EOF 
function does not work properly if the data file is an exact 
multiple of 256 bytes long (an exact number of blocks). In this 
case the end-of—file condition is not detected until an attempt 
is made to read past the end of the files if INPUT is being 
used, a “Type mismatch” may result. It iS, im any case, usually 
better to include a “record count" at the beginning of a data 
file so that EOF# is not needed. Richard Russell. 


HINTS HINTS 


HINTS INTS HINTS 


M. J. Bates of Winchmore Hill, London writes: 

You must try: 

*KEY 0 SOUND 2,-15,100,1:SOUND 3,103,100,1)M 

Try the key about 6 times and listen in amazement. To get a different sound change 
the pitch on the SOUND 2 command. 


SILLY RENUMBERING 

If you kENUMBER 30000 under Operating System 0.1 it does NOT say 'SILLY', but 
‘what is worse, if line numbers are taken over 32767 they go over the top, and 
restart at zero, jumbling your program forever. Thanks to Chris Bingley and others 
for the note on this bug. 
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Several members have sent in programs for dumping the contents of the screen to 
a dot matrix printer. we have been unable to test these, and present them as 
received. Tony Goodhew's and Nigel Langley's were supplied on cassette, so there 
should be no transcription errors here. 


Epson MXSOT 
The following program was sent by A. Goodhew of Peterborough. The program will dump 
MODE 7 screens to an Epson MX80T printer. 


100 CLS:PKINT TAB(7)"DUMP7 by Tony Goodhew"* 

110 PRKINT"A procedure to copy a MODE 7 sereen" 

120 PRINT" to an EPSON MX80 printer with low" 

130 PRINT TAB(7)"resolution graphics."' 

140 VDU&9I1:FORG=160T019 1: VDU G:NEXTG: PRINT 

150 VDU&9I5:FORG=224T0255 : VDU G:NEXTG: PRINT 

160 PRINT':FOR I=33 TO 64: PRINTCHR$(1);:NEXTI:PRINT''' 
170 2ZZ=1::LL=13:PROCDUMP7 : STOP 


970 REM 3006 aE esas aH RAHA PROCDUMPT ERIE MEME HER REE He He 

980 REM **If ZZ=1 then screen is copied else procedure aborts Re 

990 REM **Value of LL sets the number of lines to be copied ** 

995 REM aR AEE TEIE BERE R AEE BEAR AEIR AEDE W AEE AE E BESE AEDE AER REE AERE AE AEA AEIR AEE AEAEE AE R AEA DESE AEDE MEAR AEAEE AE 

1000 DEF PROCDUMP7 1110 A$=A$+CHR$(X) :NEXTC 

1010 LOCAL L,P,PP,X,A$,C 1120 FORC=1 TO LEN(A$) 

1020 LL=INT(LL) :IFZZ<>1 THEN1200 1130 X=ASC(MID$(A$,C,1)) 

1030 IFLL<1 OK LL>25 THEN 1200 1140 IF(X<32) OR (X>=128 ANDX<160) THENX=32 
1040 FORL=1 TO LL 1150 IF (X>=91 ANDX<=96) OR (X>=219 
1050 P=L*40+HIMEM-1:PP=P AND X<=223) THENX=32 

1060 X=?P:IFX<>32 THEN1080 1160 IFX>=224 THENX=X-32 

1070 P=P-1: IFP<>L® 40 THEN 1060 1170 VDU1 ,X:NEXTC 

1080 Ags 1180  VDU1,13,1,10 

1090 FORC=HIMEM+40*(L-1) TO P 1190 NEXTL 

1100 X=?C 1200 ENDPROC 


Epson MXSOF/T2 
Brian Kerr of Teddington, Middlesex sent in this procedure for dumping screens to an 
Epson MX80 F/T2 printer. 


DEF PROCscreendump | FOR Z=0 TO 7 

lbco1=0:kEM predominant background | IF POINT(X,Y-Z*4)<>bcol THEN data=data+2P(7-Z) 
VDU 1,27,1,51,1,24 | NEXT Z 

FOR Y=1023 TO O STEP -32 | VDU 1:PRINT CHR$ (data); 

| VDU 1,27,1,76,1,128,1,2 | NEXT X 

| FOR X=1 TO 1279 STEP 2 | VDU 1,10,1,13 

| data=0 I NEXT Y 


| ENDPROC 


The user must insert the logical colour number of' the predominant background colour, 
then the printer will print a dot for everything but this colour. This will take 
about 20 minutes to print. what about a machine code routine? 


Seikosha GP100A 
N.C.J.Langley of weeping Cross, Stafford writes: 

This assembler program is for use in MODE 4. It converts the BBC 320x256 
graphics format into a form which the Seikosha GP100A printer (and presumably the 
GP80A) can read. 

After the program has first been run, another program can be written or loaded 
over it, as it is totally in machine code, held at location HIMEM. The program will 
only work in MODE 4, there was no point in making it run in any other mode because 
the printer is not capable of printing the whole screen in a higher mode. 
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10 MODE 4 170 .printerchr CLC:ROL&74,X:ROR&7C 

20 HIMEM=HIMEM-200 180 INX:DEY:BNEprinterchr 

30 PS=HIMEM 190 SEC:ROR&7C 

40 FOR PASS=0 TO 1 200 LDA#1:JISR&FFEE: LDA&7C: JSR&FFEE 

50 [OPT PASS*3 210 DEC&73:BNEnextprchr 

60 start 220 CLC:LDA&70:ADC#8 : STA&70 : BNE&57A6 30 
70 LDA#&58 :STA&71 ldpage 

80 LDA#&00:STA&70 230 INC&71:LDA&71:CMP#&80 :BEC&57B7; end 
90 LDA#1:JSR&FFEE: LDA#8 :JSR&FFEE 240 .oldpage DEC&72:BNEnewchr 
100 .newline LDA#40:STA&72 250 LDA#1:JSR&FFEE: LDAFS OD: JSREFFEE 
110 .newchr LDA#8:STA&73 260 JMPnewline 

120 LDX#O:LDY#O 270 ¿end LDA#1:JSR&FFEE: LDA#&0D:JSR&FF 
130 .loadchr LDA(670) ,Y:STA&74,X EE:RTS: } 

140 INY: INX:CPX#8 : BNEloadchr 280 NEXT 

150 .nextprchr LDA#0:STA&7C 290 END 


160 LDX#0 : LDY#7 


Wwe would like to thankx Terry Bromilow of Gienfiela, Leicester, who sent a Basic 
version of the Seikosha program. we have not given it nere because Terry advised us 
that it was very slow. 


This month we give an INPUT function. Essentially tnis handles a major part of 
the process of data input via the keyboard, and includes partial cnecks for invalid 
data. A program is instantly more appealing and professional looking if the 
questions that require a user response appear fixed on the screen instead of 
scrolling. It is also nice to be able to disable those keys that are not requirea, 
and restrict the number of characters input. 

Another important feature that is often overlooked is that of validating 
(checking) the responses for correctness. For example if the computer asks for your 
age and you enter 196 you would expect that to be rejected. Similarly if it asked 
your sex and you replied '1.3' you would expect tnat to be rejected too. 


The INPUT function proposed nas the following features: 

1. It allows input from anywhere on the screen and positions tne cursor there. 

2. You can lock out tnose parts of the keyboard that you don't require. For example 
you can lock out the alphabetic keys when asking for an age. 

3. You can limit the number of characters that are to be accepted. 

4. If you want a 'string' answer it can be padded out with trailing spaces to make 
it a fixed length. (This feature will be useful for direct access files on disc). 

5. A null (just 'return' pressed) response can be easily detectea. 

6. A space of the required length will be cleared on the screen. 

Į. A beep will sound if a wrong key is pressed. 


The function starts at line 1000 (see listings at the end of this article) and 
is easy to call. Suppose we want to ask someone how many children they have, and we 
want to display tne question 'No of Chilaren' around the centre of the screen. we 
note that an integer response is required, and that the answer is very unlikely to 
be more than two digits long, so we use: 


100 PRINT TAB(5,10);"No of children?" 
110 REPEAT 

120 nchilaren=FNinput(21,10,2,0,"I") 
130 UNTIL nchildren>=0 AND NOT NUL 
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Tnere are 5 parameters to this function, they are: 


Parameter 1 - The x-coordinate for input. 

Parameter 2 - The y-coordinate for input. i 

Parameter 3 - The number of characters to be input. 

Parameter 4 - If a string, then the length of the string to be returned (0 means 


leave it unpadded). | f 
Parameter 5 = "I", "S", or "N" for integer, string, or numeric respectively. 
(See tne user guide for details of FN calls and the use of parameters.) 


In order to lock out any keys that you don't want usea, place their ASCII codes 
between lines 1220 and 1230 of the procedure definition, and then GOTO line 1119. 
For example, if (for some reason) you don't want a comma to be used, then 
insert 1222 IF cn_code=44 THEN 1119 


If you don't like the error beep them simply replace line 1119 with 1119 REM 


In «specific areas of computing you get libraries of procedures, you should get 
usea to using a procedure even if you don't understand how it works. As long as you 
have a description of the input parameters and the procedure's effect, you should be 
able to use it. 

The first program listed is one that demonstrates 'Integer' and 'String' input, and 
has good screen peng tae. It calls the INPUT function listed. Note how if you just 
press 'return' to any field it hops back to the previous field. The only real way to 
see just how useful this function is, is to try it, so go ahead. The function itself 


is given after the demonstration program (ie lines 1000 to 1320). S.W, 
10 KEM To test PrOCinput 210 UNTIL NOT NUL 
20 CLS 290 REPEAT 
30 PrOCcentre(2,40,"PEKHSONA L 300 sex$=FNinput(6,10, 6,1,"S") 
DETAILS"). 310 UNTIL sex$="" OR sex$="F" OR NUL 
yO PROCcentre( 3,40 , "------- e = 315 IF NUL THEN 190 

一 一 一 一 一 一 一 一 号 一 一 一 一 一 一 一 ") 320 PRINT TAB(6,10);:IF sex$="M" THEN 
50 PRINT TAB(15,60);"NAME:" PRKINT"Male " ELSE PRINT"Female" 
60 PRINT TAB( 15,7) ;"----" 390 REPEAT 
70 PRINT TAB(2,10);"SEX:" 400 age=FNinput(34,10,2,2,"I") 
80 PRINT TAB(2,11);"---" 410 UNTIL age>=0 
90 PRINT TAB(30,10);"AGE:" 420 IF NUL THEN 290 
100 PRINT TAB(30,11);"---" 900 PRINT'''! 
190 REPEAT | 910 PRINT"Details entered correctly" 
200 name$=FNinput(20,6,15,0,"S") 999 END 


1000 DEF FNinput(X%,Y%,max_length%,pad_ 1095 LOCAL input_string$,ch_code,Length 


length’ , Types) ,no_point,ch$ 
1010 Micerino 1099 FEM------------------------------- 
1020 REM Replacement for INPUT 77 (r ———————— 
1030 KEM Set max_length=max no ch 1100 input_string$="":Length=0:no_point 
1035 KEM to be input =(Type$="N") 
1040 KEM pad length is length of 1105 *FX 4,1 
1042 KEM string to be returned. 1110 PRINT TAB(X%,Y%) ; STRING$(max_lengt 
1050 KEM Set Type$="S" for strings h%," ")+STRING$(max_length% ,CHR$(127));: 
1052 REM or "N" for numeric GOTO 1120 
1054 REM or "I" for integer 1119 SOUND 1,-10,100,2 


1058 KEM If Type$="S" then the result 1120 ch$=GET$:ch_code=ASC(ch$):1F ch co 
1060 KEM will be padded to pad_length de=13 THEN 1310 


1004 KEM if pad_length>0 1160 IF ch_code=127 THEN 1250 

1070 KEM NUL is set to TRUE if no 1170 IF Length=max_length% THEN 1119 
1072 REM characters are input 1180 IF Typeg$="S" THEN 1220 

1050 KEM X%,Y% are screen addresses 1190 IF Length=0 AND ch$="-" THEN 1230 


1085 REM 
1090 REM 


1200 IF Type$="N" AND no_point AND ch$= 
W "q THEN int=FALSE:GOTO 1230 
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1210 IF ch_code<48 OR ch_code>57 THEN 1 


1255 IF RIGHT$(input_string$,1)="." THE 
119 N no_point=TRUE 
1220 REM Place any ch to be ignored her 1260 Length=Length-1:input_string$=LEFT 
e then:GOTO 1119 | $(input_string$,Length) :GOTO 1240 
1221 IF ch_code<32 OR ch_code>97 THEN 1 1300 REM Exit procedure 
119 i 1301 REM---------------~ 
1229 KEM End of ch to be ignored 1310 *FX 4,0 
1230 input_string$=input_string$+ch$ :Le 1315 IF pad_length% THEN input_string$= 
negth=Length+1 LEFT$(input_string$+STRING$(pad_length%, 
“1240 PRINT ch$;:GOTO 1120 " "),pad_ length?) | 
1245 REM Delete pressed so remove ch 1320 NUL=(Length=0) :PKINT " ":IF Type$= 
1246 REM-~----------—-~---~-+----------- "S" THEN =input_string$ ELSE =VAL(input_ 
1250 IF input_string$="" THEN 1119 string$) 
HINTS HINTS HINTS HINTS HINTS 
RANDOMISE 


In some Basics there is a function called RANDOMISE whose purpose is to set the 
pseudo random number generator called up by the RND function to a random point in 
its sequence. The reason for this is that every time you switch on the computer from 
cold, the computer will begin its random number generator at the same point. This 
means that with a game, say, the machine will choose the same strategy after every 
cold start. To avoid this, simply execute the following statement X=RND(-TIME) at 
the start of the program. This 'seeds' the random number generator with a value that 
depends on the state of the Beeb's internal clock; and this will be different every 
time (unless you set the clock in the line above!). 


Excellent resolution. 


PortaTel LUXOR 14° Colour 
Model No. RGB3711 TY R 


conversions limitea 
television and electronic engineers 
25, sunbury cross centre, staines road west, 
sunbury-on-thames, middlesex. twi6 7bb 


telephone: sunbury-on-thames 88972 
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In this short article we give a routine that allows data transfer in both 
directions between a BBC machine and an RML 380Z. The RS423 port of the Beeb is used 
for this purpose, and the software includes a machine code patch to effect the input 
of data to the Beeb. 

This transfer facility can be extremely useful for many purposes, allowing 
existing 380Z programs to be downloaded onto the Beeb. It should be possible to use 


the principles involved with other machines, especially those that use the CP/M 
operating system. 


The following routine was supplied by Peter Andrews of the "Chiltern Region 
Advisory Unit for Computer Based Education". The Director is W. Tagg Ph.D. M.B.C.S. 
and the unit is based at Endymion Road, Hatfield, Herts, AL10 SAU. 


How to transfer files between the BBC Micro and the KML 380Z 
| Hardware needs 


A special cable is needed to link the two computers. This BBC 
link is between the SIO-4 port of the 380Z and the RS423 port of | Data in 
the BBC (Model B). Refer to the BBC User Guide for pin | Data out 
connections on the RSH23 port. Make the connections as shown in | RIS 
Table 1. It is also necessary to connect a 1-kohm resistor | 0 volts 
between the CTS and RTS pins. It may be easier to house this in | 
the 25-pin plug at the 380Z end rather than in the small DIN | “able 1 
plug at the BBC end. [ 


Software needs 


1. Special software has been prepared for use in the BBC machine, piease save this 
and refer to it as "BBCXFR", it is listed after these notes. The program enables 
transfer in either direction by use of four function keys (f6-f9). When the 
program is run it gives a brief description of how to use the keys. Once run, any 
number of program transfers may be undertaken without the need to run the program 
again; providing the function keys are not reprogrammed. 

2. No special software is needed in the 380Z to send programs to the BBC machine. 
All that is necessary is to assume that the BBC machine is a printer operating at 
300 baud (PRINTER 4,1 command in Basic on the 380Z). (Note programs from the 3802 
must be sent as ASCII text, not in internal format). If a transfer is aborted, . 
you may experience difficulty in starting a new transfer because of junk data 
left on the port. This condition can be cleared by switching off the BBC machine 
and starting again. 

3. The easiest way to send to the 380Z is to patch PIP to accept data from the SIO-4 
port. Follow exactly the procedure described on page 3.14 of "380Z Disc System 
Information File". The PIP command is then "filename=INP:". The transfer rate in 
this direction is 2400 baud (PRINTER 4,4 on the 3802). 

4. Note that the transfer can be made from any 380Z (disc or cassette) to the BBC 
machine, but if using the above method, transfer is only to a disc based 3807 . 
[Although RML can supply a configured version of Basic allowing data to be passed 
to a cassette system from the serial port. Ed. | 


Peter Andrews 


we have used this program at BEEBUG for over a month now and it works 
successfully. For those who do not know the specification of the RML 380Z it should 
be a very simple matter to use this routine to transfer to and from any CP/M based 
machine. You may need to use the CP/M utility "STAT" to change the 'LST' and 'RDR' 
(or 'INP') devices. I shall be trying this using a North Star Horizon during August, 
and will report my findings in a later issue. 
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AO 


2000 REM **x*%kk%% 

2010 REM SET UP FOR RECEIVING 

2020 *KEY 8 "NEW|Ml REM ** TRANSFERR 
ED FROM 380Z **|M?&0210=&00:?&0211=&0 
D:VDU 15:CLS|m" 

2030 *KEY 9 "OLD|M|NLIST|M" 

2040 *FX 7,3 

2050 P%=&0D00 

2060 [ 

2070 OPT O 

2080 .LOOP 

2090 LDA $01 

2100 BIT &FE08 

2110 BEQ LOOP 

2120 LDA &FE09 


1 REM ** TRANSFERRED FROM 380Z ** 


2200 PRINT " 


% Se fe sk e e sk se sd dk qk de ç e he sñ se de sk de k k 
e e k kok koeookok en | 
2210 PRINT " * TRANSFER BETWEEN BBC 
AND 380Z *" 
2220 PRINT " Wika 
kk k kokokakokok k t 


2230 PRINT:PRINT"To send to 3802 -" 

2240 PRINT” Set 380Z printer speed 

to 4,4” :PRINT" Use PPIP and specif 
y input as INP:" 


2250 PRINT " To start transfer, pr 
ess £6": 
2260 PRINT" Press £7 when transfer 


complete" PRINT | 
2270 PRINT"To receive program from 3 
80Z -" 


2130 RTS 2280 PRINT" Press £8" 
2140 ] 2290 PRINT" Set 380Z printer speed 
2150 REM 2% Fe% d de de Te e Te de de e Ae de de e Te de e to 4,1" 
2160 REM SET UP FOR SENDING 2300 PRINT" LLIST or PIP the progr 
2170 *KEY 6 "VDU 15:CLS:VDU 21|M*EX6 am to LST:" 
,LO|M*FX5,2|M*FX8 ,5|MLIST|F|B|M" 2310 PRINT" When complete, press B 
2180 *KEY 7 "|A|Z|M" REAK then £9"*"" 

SPRINT’ '? >LOA 


2190 CLS — P STEEL 
STKING HANDLING TIP 


we were sent this tip by a member, but we have regrettably mislaid his/her name. If 
they would like to write to us we will publish an acknowledgement next issue. 


BBC Basic, like other Basics, has operations to manipulate strings. You probably 
take for granted the fact that string variables in a Basic program may grow and 
shrink in length as the program executes. If you've ever wondered how the 
interpreter manages this I can reveal all. It manages it not very well. 

To demonstrate this, run the following short program and see what happens: 

10 CLEAR:B=!2 AND &FFFF 50 A$=STRING$(255,"?") 

20 A$="":FOR I=1 TO 255: A$=A$+"A" NEXT 60 A$="":FOR I=1 TO 255: A$=A$+"A" :NEXT 
30 PRINT"Memory used=";(!2 AND $FFFF)-B 70 PRINT"Memory used=";(!2 AND $FFFF)-B 
40 CLEAK:B=!2 AND &FFFF 80 END 


It will print: 'Memory used=3090*, followed by 'Memory used=271' 


The FOK loop in line 20 has used more than 14 times as mucn memory as the 
identical loop in line 60. The reason for this becomes clear once you understand how 
the interpreter manages the memory for strings. It does this as follows: 

1. The first occurrence of the string variable name will make an entry 

for the name in the symbol table, but no buffer is allocated. 

2. when the string is given a value, a buffer is allocated the length 
of the string + 8 bytes. 

3. Subsequently, when the string is given a new value, if the new 
length is less than or equal to the old (+8) then the old allocated 
buffer is used. 

4. If the new string is longer, then the previously allocated buffer 
is discarded, and a new longer buffer is allocated as in (2). 

The large amount of memory used by the FOK loop in line 20 is a consequence of 
(4) above. The string A$ in the program is growing by 1 character every time round 
the loop, every 8 times around the loop the string becomes too big to fit its 
allocated buffer. By the end of the loop there are lots of discarded partial 
strings, wasting valuable memory. 

The following programming tip will minimise this waste, and is used in line 50 
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of the program: e | f : 
Force the interpreter to allocate enough space for the maximum length that 
you think your strings will reach. Do this as early in the program as 
possible. You can do this by saying: 
A$=STRING$(length,"?") :HEM allocate the space 
Aga REM Empty the space 
(See the 'User Guide' for details of the STRING$ function.) 
Provided that you do not overflow ‘length’ your string will not waste any more 
memory . 


B E E B UG H S 


Many members are using their micros in connection with their hobbies. One of the 
many hobbies where computers can be of major help is amateur radio. Here is a list 
of members who are also ‘Hams’. 


HAM LIST 

John R. Bird G3LBw Middlesborough David Overton GYEWE Cheshire 

Peter Burden  G3UBX Wolverhampton Alan Pemberton G8ZHG Sheffield 

Pete Cockerell GO6CSZ Essex N. Pilling GULYE Yorkshire ` 
Koger Cooke G3LDI  Wymondham,Norfolk Mike Potter G8ZQ0 Cambridgeshire 
K. Gee GMULNN Orkney Islands John Kay G8DZH Loughton, Essex 
S.W. Edwards G8TMI Warwick © David Sandy G6EKV Norwich, Norfolk 
A.J.Hope GUINL Gloucestershire R. C. Sterry GUBLT West Yorkshire 
P. Knight G3HGK Sevenoaks, Kent R. C. Taylor GW2HCJ wales 

J. Lauder GM3PZG Aberdeenshire Roger Tipper GUKXR Exeter 

J .Mackay G4LWM Preston John Yale G3ZTY Dorset. 


David Norris G8HUP Merseyside 


Space is always at a premium in the newsletter, and because of this we will only 


be printing the ‘ham list’ on an irregular basis. If you would like to be included 
on it please send details on 3 postcard. 


HINTS HINTS HINTS HINTS HINTS 


CASSETTE LOAD AND SAVE PROBLEMS 


YA NN A —u——ÀkÀə° à0 


Several members, including Ian Kobarts, P H Gosmark and H Brook, have 
experienced particular difficulty using the Ferguson 3T07 cassette recorder (in 
spite of Ian Kobart's comment that Acorn had recommended this very model). The 
‘problem, as H Brook discovered, is that the signal level from the Beeb is too great, 
and overloads the recorder's input circuitry. The solution is a simple one. Mr Brook 
has wired a resistor in series with the lead from the computer to the recorder (ie 
the lead going to pins 1 and/or 4). The value, he says should be between 4 and 10 
kilohms,'the object being,' he says,'to get a tape that loads at about 60% of full 
volume setting.' In his case, the best value was found to be 5.6 kilohms. 

Brian Carroll confirms these findings with regard to another make of recorder. 
He has a Sanyo recorder which is severely overloaded with the output from the Beeb. 
His solution is similar, and uses a 0.2x attenuator. This is achieved by placing a 
47 kilohm resistor between the output of the Beeb (pin 4) and the recorder input, 
and a 12 kilohm resistor across the input of the tape recorder (ie between the input 
and ground or chassis). 


Earth loops can also cause a problem when connecting up separate earth returns 
for record and playback leads. If this does occur you may notice a considerable hum 
on the recording. The problem can be resolved by just using a single earth lead, or 
temporarily disconnecting the playback lead during recording, and vice versa. 
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Happily we do not appear to have made any gross blunders in the last issue, 
but there are a couple of points worth raising under this rubric. 


Interlacing 
On page 16 of the June issue we have the order of the a and b parameters of the 


“TV a,b command interchanged (though the syntax is OK in the rest of the article). 


Screen Map 
In the June issue we mentioned the redundancy in the memory mapping on Model A, 


which meant that if you were writing to the screen in say MODE T, you could either 
write to locations between £7C00 and &7FE8, or to those between &3C00 and &3FES . 
There is no problem here, except that if you require your programs to work in a 32k 
machine as well as in 16k machines, then it is essential to use the higher set, 
which are fully compatible. Another way round this is to use the pseudo-variable 
HIMEM, since HIMEM is normally &7C00 on a model B and &3C00 on a model A. Thus in 
mode 7 the command ?(HIMEM+42)=255 will place a solid block (ie character 255) at a 
position 42 spaces from the top left hand corner of the screen (and since there are 
40 characters to a line, the character will appear at the third position from the 
left in the second line). Note that when you scroll the screen, the locations’ 
(unexpectedly) change. We are grateful to Tim Durham for these notes. 


*FX 4,2 

Some members have used this call to enable the cursor keys to be read with INKEY 
or GET (their character values are: copy=135, left=136, right=137, down= 138, 
up=139). This appears to work on OS 0.1, but will NOT have the same effect on 
OS 1.0. The proper call to enable these keys to be read in this way is *FX 4,1 
(which works whichever OS you have). *FX 4,0 returns them to normal. The problem 
arises because the command *FX 4,2 is used in the 1.0 OS to enable the cursor keys 
to be used as additional user-defined keys. On OS 0.1 this is not implemented, and 
the machine behaves as if the call were *FX 4,1. 


HINTS HINTS HINTS HINTS HINTS 


R.T.Russell of Gravesend, Kent has Supplied the following: (Mr kussell is the person 
whose name appears on the Technical Specification of the BBC Micro) 


*TV 0,1 which switches the interlacing off will not work in MODE 7, because mode 7 
uses "character rounding" (which is why the characters are nicer than in the other 
modes) which works only because the vertical resolution is effectively doubled (500 
TV lines rather than 250) if both fields of an interlaced picture are considered 
Separately. 


“CAT will not notice if the header of block zero is not recognised from the first 
program on a tape. 


All model B machines are fully equipped in hardware terms to receive RSY23, but the 
0.1 0.S. provides no software driver. A GET from the RS423 can be provided by using 
the following program: 


100 DIM P% 10 160 LDA &FE09 

110 [OPT 2 170 RTS 2] 

120 .RS423 180 *FX 7,n 

130 LDA &FE08 190 REPEAT 

140 AND #1 200 VDU USR(RS423) AND 255 
150 BEQ RS423 210 UNTIL FALSE 


The last three lines demonstrate the use of the driver to copy RSH23 input to the 
screen. 
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y 
Robin whitehead 


Basic, and although not as fast as traditional machine code versions, the screen 


handling is still reasonably rapid. 
(although not all of these are defined a 


translation of some of the more critical ones might be possible in order to speed 
things up. Also, use of the envelope control might enable the sound effects to be 
improved. Full instructions are included in the program. 


10 *TV 255 
20 VDU 23;8202;0;0;0; 
30 *FX 11,1 
YO SCOKE=0:H%=0:F1=0:F2=0 
50 DIM A$(20):DIM B$(20) :DIM C$(20 
) :DIM D$(20) :DIM B1(3) :DIM B2(3):DIM 
BC10):DIM AA$(3) 
60 IF X%=89 GOTO 320 ELSE Y%=0:GOT 
0 200 
TODEF PROCBASE 
80Z%=INKEY (0) 
90M%=0 
100IF Z%=90 Mé=-1:GOTO 140 
= 110IF 2%=88 M%=1:GOTO 140 
120 IF Z%=32 PROCFIRE:GOTO 180 
130 GOTO 190 
140N=N+M% 
1501F N=36 N=N-1 
1601F N<1 N=N+1 
170PHKINTTAB(0 ,23) CHR$(&96) ; TAB(N,23 
q ~} "n 
180*FX 15,1 
190ENDPROC 
200 MODE 7 
210 REM SPACE INVADERS - R. WHITEHE 
AD - JUNE 1982 
220 PRINTTAB( 10,2) CHR$( 141) ; CHR$(&8 
3)"BEEB INVADERS" 
230 PKINTTAB(10,3)CHR$( 141) ; CHR$(4:0 
3)"BEEB INVADERS" 
240 PRINTTAB(9 ;6)CHR$(&95)"f{w9"; CH 


K$(&81)" = MYSTERY POINTS" 

250 PKINTTAB( 10,8) CHR$(&94) "91"; CHR 
$(&84)" = 100 POINTS" 

260 PRINTTAB( 10,10) CHR$(&93) "£9"; CH 
K$(&83)" = 80 POINTS" 

270 PRINTTAB( 10,12) CHR$(&92) "ny"; CH 
R$(&82)" = 60 POINTS" 

280 PHINTTAB( 10,14) CHR$(&91)""}";CH 
R$(&81)" = 4O POINTS" 


_ 290 PRINTTAB(10,16)"Z KEY 
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AB(10,18)"X KEY = RIGHT" 
300 PRINTTAB(10,20)"SPACE BAR TO FI 
RE LASER" 
310 ST=TIME: REPEAT UNTIL TIME=ST+50 
0 
320 CLS:PRINTTAB( 10 ,0)SCORE: AA$(1)= 
"nn AA$(2)="7}":AA$(3)="7}" 
330 PRINTTAB(0,0)CHR$(&96) ;AA$(1) 5" 
"AA$(2);"W" "AA$(3) 3 CHR$(&87) ; TAB(22,0 
)"HIGH SCORE = ";Y% 
340 ST=TIME:GOTO 1000 
350DEF PROCBOMB 
360 IF B1(1)+B1(2) <> O PROCDROP :EN 
DPROC 
370 FOR J%=1 TO RND(2) 
380 B1(J%) = RND(10) 
390 IF B4(B1(J%))=4 GOTO 500 
400 IF DL < 10 GOTO 440 
410 IF CL < 10 GOTO 450 
420 IF BL < 10 GOTO 460 
430 GOTO 470 
440 IF D$(B1(J%)) <> " " B2(J%)=H+ 
7:GOTO 480 
450 IF C$(B1(J%)) <> " " B2(J%)=H+ 
5:GOTO 480 ` 
460 IF B$(B1(J%)) <> "W " B2(J%)=B+ 
3:GOTO 480 
470B2(J%)=H+1 
480B1(3%)=(B1(3%)%2)+1 
490 B3=0 | 
500NEXT 
5 10PROCDROP 
520 ENDPROC 
530DEF PROCDROP 
540 FOK J%=1 TO 2 
550 IF B1(J%)=0 GOTO 660 
560 IF B3=0 B3=B3+1:GOTO 590 
570 IF B3=1 AND B1(2) > 0 B3=B3+1:G 
OTO 590 | 
580 PRINTTAB(B1(J%),B2(J%2)-1)" " 
590 X%=FNHIT(B1(J 
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(J%) < 23 GOTO 620 
510 IF X% <> O AND X% <> 32 PROCGOT 

YOU:PROCBASE:GOTO 650 ELSE GOTO 650 
620 IF X%=0 OR X%=32 PRINTTAB(B1(J 

A ,B2(J%))" i" :B2(J%)=B2(J%)+1:GOTO 66 


1050 IF X%=94 PRINTTAB(B1(J%) ,B2(J%) 
) "sF1=0:GOTO 650 

640 IF X%=255 PRINTTAB(B1(J%) ,B2(J% 
))"a" ELSE PRINTTAB(B1(J%) ,B2(J$))" " 

650B1(J%)=0 

660NEXT 

670 ENDPROC 

680 DEF PROCGOTYOU 

690 SOUNDO,-10,14,15 

700 PRINTTAB(B1(J%)=1,23) CHR$(&91)" 


710 NT=TIME:REPEAT UNTIL TIME=NT+10 


720 LIVE=LIVE+1 
730 IF LIVE < 3 GOTO 810 
740 CLS:PRINTTAB(10,10)"GAME OVER"T 
AB(10,12)"YOUR SCORE =. "sSCORE 
7501F SCOREXY% PRINTTAB(10, 14) "HIGH 
SCORE = ":Y% ELSE PRINTTAB(10, 14)"T 
HIS IS THE HIGH SCORE"; Y4=SCORE 
760 PRINTTAB(10, 18) "ANOTHER GAME?": 
X%=02 X4=GET:: IF X%= -89 RUN 
770 IF X% <> 78 THEN 740 
780 CLS 
790 *FX 11,15 
800 END 
810 AAS(LIVE)=" " 
820 PRINTTAB(0 ,0)CHR$(&96) AA$(1)" " 
5AA$(2)" "5 AAG(3) 
830 PRINTTAB(N, 23)" N 
840 N=1: PRINTTAB(O, 23 )CHR$(&96)" ~} 
n 
850 IF F1>0 PRINTTAB(F1,F2)" i 
860 F1=0 
870 ENDPROC 
880 DEF PROCL1 
890 PRINTTAB(0,H)CHR$(&94) ; TAB(I,H) 
W Mo A$(A%+1); o MM n. > A$(A%+2) ; off Mo AS ( Adee 
3) 5" MS AS(Aged) s" "5 AS (AGS) 515 ASA 


J46): o 11 "s AS(AG+7) e" "s A$(A%+8): off Mo sA$ 


(88H9) MASCAR 10) 70m 

900ENDPROC 

910 DEF PROCL2 

920 PRINTTAB(0 ,H+2) CHR$(&93) ; TAB(I, 
H+2)" Mo ;B$(A%+1) ; off Mo sBS(A%+2) 5 e Mo : B$ 
(A%+3); of n: BS (AGI) 3" Mo ; B$(AZ+5) 3" "> 
BS(A%+6); s" "S B$(AZ+7);" "BS (A+B) ¿0 
Mo ; B$(A%+9) ， o 1 ",B$(A%+10); oN n 

930ENDPROC 

9HODEF PROCL3 

950 PRINTTAB(0 ,H+4) CHR$(&92) ; TAB(I 
Hey)” WeC$(AZe1) 30 "Us CS(A%+2) 30 Mo “CS 


(Ap+3) 5" "sC$CA Red)" n C$(A RS) ¿0 "' 
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x C$(A2+6);" ";C%(A%+7);" "3CH(AbeB) o" 


Wo “CH(AG+9) ， ol? Moe ;C$(A%+10); x t 
960ENDPROC 
970DEF PROCLY 
980 PRTNTTAB(O ,H+6)CHR$(&91); TAB(I, 
H+6)" Mo ;D$(A%+1) s o Mo sD$(A%+2) ; off Wo : D$ 
(A%+3); olf Mo D$ (Ag+) y off Mo : D$ (AZ+5) ; olf ns 
D$(AŽ+6); Fi Ma :D$(AZ+7): st ta : D$ (AZ+8) ¿0 
Mo “DS (A%+9) 3" Mo -D$(AZ+10) ; wit n 
990ENDPROC 
1000 N=0:AL=0:BL=0:CL=0:DL=0 
1010FOR I%=1 TO 10 
1020A$( 1%) ="ng" 
1030NEXT 
1040FOR 1%=11 TO 20 
1050A$(1%)="91" 
1060NEXT 
1070FOR I%=1 TO 10 
1080B$(1%)="f9" 
1090NEXT 
1100FOR I%=11 TO 20 
1110B$(I%)=". tU 
1120NEXT 
1130FOR I%=1 TO 10 
1140C$(1%)="ny" 
1150NEXT 
1160FOR I%=11 TO 20 
1170C$(I%)="v=" 
1180NEXT 
1190FOR I%=1 TO 10 
1200D$(1%)=""3" 
1210NEXT 
1220FOR I%=11 TO 20 
1230D$( 1%) =">m" 
1240NEXT 
1250 A=0:B=0:C=0:4%=0:H=2+C%:F1=0 
1260 PRINTTAB(0,20)CHR$(4:92); 
1270 FOR I%=1 TO 4 
1280 PRINT" x"CHR$(&FF)CHR$(&FF) CHR 
$(&FF)"t der 
1290 NEXTIZ 
1300 PRINTTAB(0,21)CHR$(4%92); 
1310 FOR I%=1 TO 4 
1320 PRINT" ot aaa "CH 
R$(&FF)CHR$(&FF)" 
1330 NEXT I% 
1340 PRINTTAB(0,23)CHR$(&96)" ~} " 
1350 PROCA 
1360FOR I=A TO B STEP C 
1370 IF TIME-ST >= 500 PROCMSHIP 
1380 IF A%=20 A%=0 
1390 IF H%>2 AND H%<33 PROCMSHIP 
1400 IF AL=20 GOTO 1430 
1410 PROCL1 
1420 PROCBASE 
1430 IF BL=20 GOTO 1470 
1440 PHOCL2 
1450 PROCBASE 


_ 1460 IF H%>2 AND H%<33 PROCMSHIP _ 
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1470 IF CL=20 GOTO 1500 
1480 PROCL3 
1490 PROCBASE 
1500 IF DL=20 GOTO 1530 
1510 PKOCLY 
1520 PROCBASE 
1530 PROCBASE 
1540 PROCHIT 
1550 NT=TIME+(40-(C¥10)) 
1560 A%=A%+10 
1570 SOUND 3,-10,A%+1,4 
1580 PROCHIT 
1590 PROCBASE 
1600 REPEAT PROCBASE 
1610 PROCHIT 
1620 UNTIL TIME>=NT 
1630NEXTI 
1640 GOTO 1350 
1650 DEF PROCA 
1660 IF B=8 A=8:B=1:C=-1 ELSE B=8:A= 
1:C=1 
1670 FOR J%=0 TO 6 STEP 2 
1680 IF J%=0 AND AL=20 GOTO 1730 
1690 IF J%=2 AND BL=20 GOTO 1730 
1700 IF J%=4 AND CL=20 GOTO 1730 
1710 IF J%=6 AND DL=20 GOTO 1730 
1720 PRINTTAB(1,H+J%)SPCHMN 
1730 NEXT 
1740 H=H+1 
1750IF DL < 20 AND H=14 GOTO 1790 
1760IF CL < 20 AND H=16 GOTO 1790 
1770IF BL < 20 AND H=18 GOTO 1790 
17801F H < 20 GOTO 1800 
1790J%=1:B1(J%) =N :PROCGOTYOU : PROCGOT 
YOU : PROCGOTYOU 
1800 ENDPROC 
1810DEF PROCFIRE 
1820 IF F1 > 0 GOTO 1850 
1830 F1=N+1 
1840 F2=22 
1850 PROCHIT 
1860 IF F1 = O GOTO 1880 
1870 PRINTTAB(F1,F2)""" 
1880ENDPROC 
1890 DEF PROCHIT 
1900 PROCBOMB 
1910 IF F1=0 GOTO 1970 
1920 PRINTTAB(F1,F2)" " 
1930 F2=F2=1 
1940 PROCHITA 
1950 IF F2 < 1 F1=0:GOTO 1970 
1960 IF F1 > O PRINITAB(F1,F2)""" 
1970 ENDPROC 
1980DEF PROCSCORE 
1990 SCORE = SCORE+((10=(F2-H))*10) 
2000 PRINTTAB( 10 ,0)SCORE 
2010 F3=(F1-1)+1 
2020 F3=INT(F3/3) 
4 =B4(F* 
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2050 FOR J%=1 TO 2 

2060 IF L%=6 GOTO 2120 

2070 IF L%=4 GOTO 2110 

2080 IF L%=2 GOTO 2100 

2090 A$(F3)=" ":AL=AL+1:GOTO 2130 


2100 B$(F3)="  ":BL=BL+1:GOTO 2130 
2110 C$(F3)=" ":CL=CL+1:GOTO 2130 
2120 D$(F3)="  ":DL=DL+1 

2130 F3=F3+10 

2140 NEXT J% . 


2150 IF AL+BL+CL+DL=80 C%=C%+1:CLS:P 


RINTTAB( 10, 10) CHR$( 141) ; CHR$(&81)CZ*1 
00;" POINTS" : PRINTTAB( 10, 11) CHR$( 141) 


9 


CHR$(&81)C%#100;" POINTS": SCORE=SCOR 


E+C%* 100 :NT=TIME: REPEAT UNTIL TIME=NT 
+350 :X%=SCORE 


2160 IF AL+BL+CL+DL=80 CLEAR: SCORE=X 


%:X%=89:GOTO 50 


2170 F1=0 

2180 ENDPROC 

2190 DEF FNHIT(ch,1) 

2200 =?(&7C00+(1*40)+ch) 

2210 DEF PROCHITA 

2220 X%=FNHIT(F1,F2) _ | 
2230 IF X%=0 OR X%=32 ENDPROC 
2240 IF F2 < 20 GOTO 2270 


- 2250 SOUNDO,-10,0,1 


2260 IF X% = 255 PRINTTAB(O,F2)CHR$( 


&92)TAB(F1,F2)"2":F1=s0:ENDPROC ELSE P 


` RINTTAB(F1,F2)" ":F1=0:ENDPROC 


2270 IF X%=124 PRINTTAB(F1,F2)" ":F1 
0:ENDPROC | 

2280 IF F2=1 PROCMHIT:GOTO 2330 

2290 IF F2=0 F1=0:GOTO 2330 

2300 PRINTTAB(F1,F2)"  " 

2310 SOUNDO,-10,F2-H,5 

2320 PROCSCORE 

2330ENDPROC 

2340DEF PROCMSHIP 

2350IF H%>1 AND H%<33 GOTO 2380 ELSE 


- 1%=RND(2) 


n 


23601F I%=1 T%=-2:H%=33. ELSE H%=1 

2370 ST=0 

oy PRINTTAB(0, 1) CHR$(&95) TAB( HZ , 1) 
f w9 $“ 

2390 H%=H%+1% 

2400 IF H%=1 OR H%>= 33 ST=TIME:PRIN 


TTAB(O,1)" 


1 


$ 


__ 2470 ENDPROC 


1? 


2410 ENDPROC 

2420DEF PROCMHIT — 

2430 FORI%=0 TO 555 STEP 7:SOUND1,- 
5,1% ,0:NEXT 

2440 SCORE=SCORKE+( RND(3)# 100) 
ee er s 
2460 PRINTTAB(H% , 1)" " 


Volume-1 Issue=1M 


34 


DISCOUNTS 
BEEBUG have arranged discounts for members at a number of retail outlets who supply 


computer books, software, hardware and services. we are continually negotiating 
further discounts. 


We have heard that some suppliers are selling 120ns 4816 memory chips for Beeb 
upgrades. The Acorn specification is for a 100ns device (eg 4816-3), though we have 
not heard of anyone having problems with 120ns chips. 


Active Components Ltd Hardware Opus Supplies Computer furniture 
(Incorporates Midwich) 10% discount Birchtrees 20% discount. Send 
- Hewitt House on all items 10 Beckenham Grove for brochure. 

Northgate Street Shortlands 

Bury St Edmunds Bromley Bh2 OJU 

Suffolk (Tel: 0284 701321) 
Technomatics Ltd Hardware, software 

Electronics Applied Cassette leads 15 Burnley Koad and books, 5% discou 

4 Dromore Koad for the BBC LONDON Nw10 

Carrickfergus machine 5% (Tel: 01-452 1500) 

Co Antrim discount 

BT38 7PJ (Tel: 65973) Wallace J & Š Flexible plastic dus 
9 Barn Close covers. £3.95. 25% 

Happy Memories Computer Haraware Crewkerne discount to members. 

Gladestry ' 10% off all 'one-off' TA18 8BL 

Kington prices: Quantity prices f | 

Herefordshire may be negotiable. watford Electronics 5% off all items, 

HR5 3NY (Tel: 054422 618) 33, Cardiff Road except special offer 
watford mentioned elsewhere 

Mine of Information Computer Books Herts. 

(Mail Order) 5% discount (Tel: watford 40588) 

-1 Francis Avenue 

St Albans 


Herts (Tel: 0727 52801) 


It is advisable to telephone before placing an order, to check availability. Members 
should simply quote their membership number with their order, though members taking 
discount will not necessarily be given credit card facilities, (you must check 
this). we are not acting for these companies, nor receiving payment from them, ana 
cannot be held responsible for their services. 


TYT 


LOCAL USER GROUP INDEX 


BEEBUG is happy to act as an information point for local groups. If you would like 
to be in our index, just drop a line to us and mark the envelope "Local user 
groups". The following is an update of our index. Please see previous issues for the 
full list. 

EDUCATIONAL SUB=-GhOUPS 


Preston 

D. Coulter 8, Briar Grove Cheltenham | 
Ingol, Preston Stroud Teachers' Centre (P.J.Heslip) 
Lancashire. PR2 3UR Chalford Hill C.P. School 


Chalford, Gloucestershire. 
(after Aug)- Arthur Dye C.P. School 

Springbank kd 

Cheltenham, Glos. 
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